Re: Gimp Perl Server

[Marc Lehmann <pcg@xxxxxxxx>]

On Sun, May 14, 2000 at 06:55:22AM -0700, Michael Lee <arcana@xxxxxxxxxxxx> wrote:
> I've been trying to get the following script to work...

Try to rwrite it using the newer network-api (i.e. like this):

   use Gimp;
   use Term::ReadLine;

   Gimp::init;

   sub net
   {
       $term = new Term::ReadLine;
       while( defined ($_ = $term->readline("Gimp> ")))
       {
           $res = eval($_) . "\n";
           print("Error: $@"), next if $@;
           print "\n";
       }
   }

> What might be wrong?

gimp-perl, but the "fix" would hit a bug in older (yet supported) perl
versions. the api above is much easier, though ;)

-- 
      -----==-                                             |
      ----==-- _                                           |
      ---==---(_)__  __ ____  __       Marc Lehmann      +--
      --==---/ / _ \/ // /\ \/ /       pcg@xxxxxxxxxxxxx |e|
      -=====/_/_//_/\_,_/ /_/\_\       XX11-RIPE         --+
    The choice of a GNU generation                       |
                                                         |