<URL: https://rt.cpan.org/Ticket/Display.html?id=80217 >
On Fri Oct 19 08:47:40 2012, JDHEDDEN wrote: > Uncommenting the Data::Dumper command on line 189 of Callback.pm products: > > > perl -Mblib Callback/t/03_Jim_Shaw.t > 1..6 > ok 1 - use Win32::API; > ok 2 - use Win32::API::Callback; > ok 3 - use Win32::API::Test; > ok 4 - loaded > get_window_pids: Desktop hwnd: 65556 > $VAR1 = [ > 'ܨ"', > 'è¤B~', > 'V', > '' > ]; > $VAR1 = [ > 'ܨ"', > 'è¤B~', > 'X', > '' > ]; > $VAR1 = [ > 'ܨ"', > 'è¤B~', > '–', > '' > ]; > $VAR1 = [ > 'ܨ"', > 'è¤B~', > '¨', > '' > ]; > $VAR1 = [ > 'ܨ"', > 'è¤B~', > 'X%', > '' > ]; > $VAR1 = [ > 'ܨ"', > 'è¤B~', > '5', > '' > ]; > $VAR1 = [ > 'ܨ"', > 'è¤B~', > '8d', > '' > ]; > Invalid type '-' in unpack at > /c/_/Xfer/bulk88-perl5-win32-api-patched/blib/lib/Win32/API/Callback.pm > line 188. > # Looks like you planned 6 tests but ran 4. > # Looks like your test exited with 255 just after 4. > > I see a '-' in the third $vAR1, but it's beyond me what the issue is. The $VAR1s look fine. The first 2 slices are always the same. The 3rd is a HWND and the only one that should change call to call, and the 4th is always NULL. Try my latest version at https://github.com/bulk88/perl5-win32-api and report back. I added extra debugging to code to ::Callback's 32 bit RunCB. Also Callback/t/03_Jim_Shaw.t is capable of dumping all the data it collected, change this line to https://metacpan.org/source/COSIMO/Win32-API-0.72/Callback/t/03_Jim_Shaw.t#L74 "my $print = 1;" but its output may produce a log with confidential information that you might not want to be public.
