| Subject: | photo load filename in error message |
| Date: | Tue, 23 Aug 2011 11:34:08 +1000 |
| To: | bug-Tk [...] rt.cpan.org |
| From: | Kevin Ryde <user42 [...] zip.com.au> |
If Tk::Photo is given a file with bad (ie. non-image) contents, the
filename doesn't seem to make it through to the error message. With
recent debian i386 perl 5.12.3 running "perl -w foo.pl" below gives me
804.029
Tcl_GetStringFromObj @ 566 not utf8
SV = PV(0x9ffb590) at 0xa030a50
REFCNT = 1
FLAGS = (POK,pPOK,UTF8)
PV = 0xa0383a0 "couldn't recognize data in image file \"\350\263\377\t\1\""\0Malformed UTF-8 character (unexpected non-continuation byte 0xff, 1 byte after start byte 0xe8, expected 3 bytes) in subroutine entry at /usr/lib/perl5/Tk/Image.pm line 21.
[UTF8 "couldn't recognize data in image file "\x{0}\t\x{1}""]
CUR = 45
LEN = 48
SV = PV(0x9ffb590) at 0xa030a50
REFCNT = 1
FLAGS = (POK,pPOK,UTF8)
PV = 0xa0383a0 "couldn't recognize data in image file \"\350\263\377\t\1\""\0Malformed UTF-8 character (unexpected non-continuation byte 0xff, 1 byte after start byte 0xe8, expected 3 bytes) in subroutine entry at /usr/lib/perl5/Tk/Image.pm line 21.
[UTF8 "couldn't recognize data in image file "\x{0}\t\x{1}""]
CUR = 45
LEN = 48
couldn't recognize data in image file "??? ." at /usr/lib/perl5/Tk/Image.pm line 21.
use strict;
use Tk;
print Tk->VERSION,"\n";
my $mw = MainWindow->new;
my $photo = $mw->Photo (-file => '/etc/passwd');
print "done\n";
exit 0;