version 0.76_04

See Changes

API.pm

@@ -77,7 +77,7 @@ my %Procedures = ();
 # dynamically load in the API extension module.
 # BEGIN required for constant subs in BOOT:
 BEGIN {
-    $VERSION = '0.76_03';
+    $VERSION = '0.76_04';
     bootstrap Win32::API;
 }
 

Callback.pm

@@ -16,7 +16,7 @@ use strict;
 use warnings;
 use vars qw( $VERSION @ISA $Stage2FuncPtrPkd );
 
-$VERSION = '0.76_03';
+$VERSION = '0.76_04';
 
 
 require Exporter;      # to export the constants to the main:: space

Callback/Callback.xs

@@ -811,6 +811,7 @@ DESTROY(self)
 PREINIT:
     SV * retsv;
     DWORD error;
+    DWORD error2;
 PPCODE:
     error = GetLastError(); //dont let DESTROY screw up a new
     PUSHMARK(SP);
@@ -821,9 +822,9 @@ PPCODE:
     //call_pv("Win32::API::Callback::IATPatch::Unpatch", 0);
     retsv = POPs;
     if(!sv_true(retsv) /*ERROR_NO_MORE_ITEMS means it was already unpatched*/
-       && GetLastError() != ERROR_NO_MORE_ITEMS){
+       && (error2 = GetLastError()) != ERROR_NO_MORE_ITEMS){
         croak("%s: Failed to unpatch DLL, error number %u ",
-              "Win32::API::Callback::IATPatch::DESTROY", GetLastError());
+              "Win32::API::Callback::IATPatch::DESTROY", error2);
     }
     SetLastError(error);
 

Callback/t/threading_fails.t

@@ -31,6 +31,9 @@ diag("This might crash");
 
 #$callback->{'code'}, no other way to do it ATM, even though not "public"
 my $hnd = $function->Call(0, 0, $callback->{'code'}, 0, 0, 0);
+sleep 1; #try to stop a CPANTesters fail report 596da136-6c02-1014-8ad3-3babd0345282
+#which looks like a crash, if global destruction in Perl happen, the function
+#stub might be freed before the thread runs, so add sleep
 ok($hnd, "CreateThread worked");
 
 #this test is badly designed, it doesn't check whether the error message

Changes

@@ -1,13 +1,17 @@
 History of Win32::API perl extension.
 
-2013-??-??  Win32::API v0.76_??    bulk88
+2013-10-12  Win32::API v0.76_04    bulk88
    - Fixed, a lie in the POD for Type.pm, about the Type database
    - Fixed, using Perl 5.6/MakeMaker < ~6.25 caused Makefile.PL to generate
      a syntax erroring makefile
    - Added, beginnings of MSYS compatibility (Thanks to Sebastian Schuberth)
    - Fixed, many POS typos by David Steinbrunner
    - Fixed, removed use of "package ExtUtils::MM_Win32;" in Makefile.PLs for
      MSYS compatibility
+   - Fixed, substr bug by Sebastian Schuberth
+   - Fixed, thread_fails.t crashes due to race freeing the callback function
+     stub
+   - Improved, Win32::API::Callback::IATPatch::DESTROY optimization
 
 2013-07-04  Win32::API v0.76_03    bulk88
    - Fixed, rebuilt API_test64.dll to fix a problem where Debug CRT was required

Makefile.PL

@@ -15,6 +15,9 @@ require './Test.pm';
 my $is_64bit_build = ($Config{ptrsize} == 8);
 my $is_msvc_compiler = ($Config{cc} =~ /cl/);
 
+#maybe this CC will banned in the future due to SEGV in DllMain
+#die "Mingw 3.4.5 will generate unloadble DLLs, upgrade your GCC"
+#     if index($Config{gccversion}, '3.4.5 (mingw-vista special r3)') != -1);
 
 use ExtUtils::MakeMaker;
 WriteMakefile1(

Struct.pm

@@ -9,7 +9,7 @@ package Win32::API::Struct;
 use strict;
 use warnings;
 use vars qw( $VERSION @ISA );
-$VERSION = '0.64';
+$VERSION = '0.65';
 
 use Carp;
 use Win32::API::Type;

Type.pm

@@ -16,7 +16,7 @@ use strict;
 use warnings;
 use vars qw( %Known %PackSize %Modifier %Pointer $VERSION @ISA );
 
-$VERSION = '0.68';
+$VERSION = '0.69';
 
 use Carp;
 BEGIN{