Hi Darren
> sub image_resize_width {
> my ($status) = "resize_ok";
> my $i = Image::Magick->new;
> my($result)= $i->Read($file);
#Print an error, if any:
die $result if $result;
> $i = $i->Transform(geometry=>$width);
Bad!!!!!! You are overwriting the Image::Magick object in $i.
$result = $i->Transform(geometry=>$width);
die $result if $result;
>
> $result = $i->Write($file);
> print $result;
Nope.
die $result if $result;
> return $status ;
> }
Also, you need to check your installation for www/perl.html to ensure all
the code I suggest makes sense. Some method calls return an Image::Magick
object, not an error code.
--
Ron Savage
[EMAIL PROTECTED]
_______________________________________________
Magick-users mailing list
[email protected]
http://studio.imagemagick.org/mailman/listinfo/magick-users
