Mon Apr 21 08:38:47 2014: Request 94906 was acted upon.
Transaction: Ticket created by mi...@noromaa.fi
Queue: Win32-API
Subject: Signed return values not working
Broken in: (no value)
Severity: (no value)
Owner: Nobody
Requestors: mi...@noromaa.fi
Status: new
Ticket <URL: https://rt.cpan.org/Ticket/Display.html?id=94906 >
Hello!
I am declaring my function as follows:
my $TestFunc = Win32::API->new('PerlWin32.dll', '_TestFunc@24', 'PPPPPP',
'i');
The C code looks as follows:
int WINAPI TestFunc(char *str1, char *str2, char *str3, char *str4, char
*str5, char *str6)
{
...
return (-1);
}
On ActiveState Perl 5.16.3 this worked fine and returned -1 to Perl.
However, on ActiveState Perl 5.18.2 the function returns 4294967295.
I am using Win32::API version 0.77. The same problem occurred with version
0.75 that was pre-installed with ActiveState Perl 5.18.2.
When looking at perl -V, I see ActiveState has added USE_64_BIT_INT after
5.16.3. My guess is this affects the way Win32::API handles the return
values. Since I am specifying 'i' (signed int), Win32::API should return -1
to Perl as -1, not as 4294967295. By the way, even 'I' (unsigned int)
returned -1 on ActiveState Perl 5.16.3.
--
Mikko Noromaa (mi...@noromaa.fi) - tel. +358 40 7348034
