Skip Menu |
 

This queue is for tickets about the Tk-TIFF CPAN distribution.

Report information
The Basics
Id: 70094
Status: new
Priority: 0/
Queue: Tk-TIFF

People
Owner: Nobody in particular
Requestors: user42 [...] zip.com.au
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)



Subject: segv on data()
Date: Sat, 06 Aug 2011 09:57:36 +1000
To: bug-Tk-TIFF [...] rt.cpan.org
From: Kevin Ryde <user42 [...] zip.com.au>
Download (untitled) / with headers
text/plain 419b
With recent debian i386 perl-tk 1:804.029, perl 5.12.4, and my own build of Tk-TIFF 0.10 or 0.10_51, asking for $photo->data(-format=>'TIFF') gets a segv, per foo.pl below. Putting it under gdb suggests CommonWriteTIFF() is reached with some dodgy blockPtr, with the width and height there being garbage and which ckalloc() then either gives NULL or an abort(). A $photo->write('/some/file.tiff') seems fine though.
Download foo.pl
text/x-perl 270b
use strict; use Tk; use Tk::TIFF; print Tk->VERSION,"\n"; print Tk::TIFF->VERSION,"\n"; my $mw = MainWindow->new; my $photo = $mw->Photo (-width => 32, -height => 32); $photo->put ("#FF00FF", -to => 0,0,32,32); $photo->data(-format => 'TIFF'); print "done\n"; exit 0;


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.