Hi Darren

(1) Does you program start with:

#!/path/to/perl

use strict;
use warnings;

If not, that's the first thing to fix.

(2) Error checking

>       $i->Read($file);

That should be:

my($result) = $i -> Read($file);
die $result if $result;

(3) Error checking.

>       $i->Scale(geometry=>$geometry, width=>$globe_x,
> height=>$globe_y);

As above.

(4) Error checking.

>       $i->Write($file);

As above.

(5) Error checking.

>       if( $! ){ $status = "resize_err" }

As above.
--
Ron Savage
[EMAIL PROTECTED]
http://savage.net.au/index.html
_______________________________________________
Magick-users mailing list
[email protected]
http://studio.imagemagick.org/mailman/listinfo/magick-users

Reply via email to