Bug#441982: can't scale or clone tiff image using libimage-imlib2-perl

[andy baxter]

Don Armstrong wrote:

tag 441982 unreproducible
severity 441982 minor
thanks

perl -MImage::Imlib2 -e 'my $img = Image::Imlib2->load(q(foo.tiff)) or die qq(unable to 
load); my $img2 = $img->create_scaled_image(100,0) or die q(unable to scale); 
$img2->image_set_format(q(tiff)); $img2->save(q(bar.tiff));'

works perfectly well here.

If you can reduce your script to a smaller testcase, I'd be willing to
look at it, but I don't have time to debug your script.


Don Armstrong

Thanks for getting back to me. I have created a simple test case program, which is attached to this email as imgtest.pl. When I run it with two tiff images I have, I get the following results:

aide.check    bar.tiff  carpark-small.tif  foo.tiff
whale:~#
whale:~#
whale:~# ./imgtest.pl carpark-clone.tif scaled1.tif
opening file: carpark-clone.tif
unable to scale at ./imgtest.pl line 10.
whale:~# ./imgtest.pl carpark-small.tif scaled2.tif
opening file: carpark-small.tif
whale:~# ls
P1010036.JPG  aide.log  carpark-clone.tif  carpark.tif  imgtest.pl
aide.check    bar.tiff  carpark-small.tif  foo.tiff     scaled2.tif


http://lofty.dyndns.info/misc/carpark-small.tif
and
http://lofty.dyndns.info/misc/carpark-clone.tif





Andy Baxter.

whale:~# ls P1010036.JPG aide.log carpark-clone.tif carpark.tif imgtest.pl In other words, it works with one image but not the other. I think this is because of the large size of the first image - it is 9000x1304 pixels (44.8 Mb), whereas the second image is only 3451x500 pixels (6.6 Mb). I haven't attached the images as they are very large, but they can be downloaded at: So it looks like there is some issue with very large images. Having found out what the problem is, I can work round it for the work I need to do, so this is no longer an urgent bug for me. It does seem to be a new bug though, as the program I originally posted was working fine until I upgraded from ubuntu dapper to ubuntu feisty. I assume this means it would also have worked in some earlier version of debian before etch (which I am using now), as ubuntu is based on debian. Thanks again for getting back to me. If you need me to test anything else out, let me know.

imgtest.pl
Description: Perl program