Fri Oct 19 18:02:15 2012: Request 80217 was acted upon.
Transaction: Correspondence added by BULKDD
Queue: Win32-API
Subject: Build failure under Cygwin on Windows
Broken in: 0.72
Severity: Critical
Owner: BULKDD
Requestors: jdhed...@cpan.org
Status: open
Ticket <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.
