Marc Lehmann wrote:
>
> On Sun, May 14, 2000 at 06:55:22AM -0700, Michael Lee <[EMAIL PROTECTED]> 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;
>
On Sun, May 14, 2000 at 06:55:22AM -0700, Michael Lee <[EMAIL PROTECTED]> 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::
I've been trying to get the following script to work...
#!/usr/bin/perl
use Gimp;
use Term::ReadLine;
sub net
{
$term = new Term::ReadLine;
while( defined ($_ = $term->readline("Gimp> ")))
{
$res = eval($_) . "\n";
print("Error: $@"), next if $@;
print "\n";