Subject: | Image |
Error:
@ 535 not utf8
SV = PV(0x3449700) at 0x342c224
REFCNT = 1
FLAGS = (POK,pPOK,UTF8)
PV = 0x344b034 "couldn't recognize data in image file \"\350\226D\3\1\""\0 [UTF8 "couldn't recognize data in image file "\x{8584}\x{3}\x{1}""]
CUR = 45
LEN = 46
SV = PVMG(0x34489dc) at 0x342c224
REFCNT = 1
FLAGS = (SMG,POK,pPOK,UTF8)
IV = 0
NV = 0
PV = 0x344b034 "couldn't recognize data in image file \"\350\226D\3\1\""\0 [UTF8 "couldn't recognize data in image file "\x{8584}\x{3}\x{1}""]
CUR = 45
LEN = 46
MAGIC = 0x344b58c
MG_VIRTUAL = &PL_vtbl_utf8
MG_TYPE = PERL_MAGIC_utf8(w)
MG_LEN = 43
couldn't recognize data in image file "??D" at C:/amp/Perl/site/lib/Tk/FastSplash.pm line 60.
D:\cvsroot\ingestint\scripts\ingest_client\ingest_client.tk.pl
Called with:
require Tk::FastSplash;
$splash = Tk::FastSplash->Show(
'banner_home_t03.jpg', # Image
315, # Width
51, # Height
__PACKAGE__,
0 # $overrideredirect
);
The filename prints as expected if a "warn $image_file" is placed above the following line in Tk::FastSplash:
my $img = Tk::image($splash_screen, 'create', 'photo', 'splashphoto',
-file => $image_file);