version v0.76_03

see Changes

Author: bulk88

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_02';
+    $VERSION = '0.76_03';
     bootstrap Win32::API;
 }
 

API_test64.dll

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

Callback.pm

@@ -1,5 +1,12 @@
 History of Win32::API perl extension.
 
+2013-07-04  Win32::API v0.76_03    bulk88
+   - Fixed, rebuilt API_test64.dll to fix a problem where Debug CRT was required
+     by manifest but not by import table, this caused API_test64.dll to be
+     unloadable on many x64 CPANTesters machines
+   - 2 Makefile.PL files are not executable in the CPAN tarball anymore for
+     Kwalitee reasons
+
 2013-06-27  Win32::API v0.76_02    bulk88
    - Fixed, on 32 bits, Call_asm since 0.76_01, in Visual Studio, even with
      symbols loaded, lost the the part of the call stack behind Call_asm in VS

Changes

@@ -163,6 +163,19 @@ sub MY::test {
     return $test_sec;
 }
 
+#b/c of this sub, distdir only runs on Cygwin, perm changes are for Kwalitee
+sub MY::distdir {
+    package ExtUtils::MM_Win32;
+    my($self) = shift;
+    my $distdir_sec = $self->SUPER::distdir(@_);
+    substr($distdir_sec
+           ,index($distdir_sec,"\"\n\ndistdir : ")
+           ,length("\"\n\ndistdir : ")
+           ,"\"\\\n\t&& cd \$(DISTVNAME) && chmod -v -x-x-x Makefile.PL && chmod -v -x-x-x ./Callback/Makefile.PL\n\ndistdir : "
+           );
+    return $distdir_sec;
+}
+
 sub GS_flag {
     if($is_msvc_compiler
        && Win32::API::Test::compiler_version_from_shell() >= 14 ) {

Makefile.PL

@@ -90,7 +90,8 @@ SKIP: {
     );
     ok($IsBadReadPtr, 'Import of IsBadReadPtr function from kernel32.dll');
     my $dllhandle = Win32::LoadLibrary($test_dll);
-    die "LoadLibrary on test dll failed" if ! $dllhandle;
+    $result = Win32::GetLastError();
+    die "LoadLibrary on test dll failed GLR=".$result if ! $dllhandle;
     my $nofunction = new Win32::API($test_dll, 'int ThisFunctionDoesntExist(int a, int b)');
     die "function that doesn't exist, exists!" if $nofunction;
     Win32::FreeLibrary($dllhandle);