version 0.74

version 0.74

Author: bulk88

API.pm

@@ -58,7 +58,7 @@ use File::Basename ();
 #######################################################################
 # STATIC OBJECT PROPERTIES
 #
-$VERSION = '0.73';
+$VERSION = '0.74';
 
 #### some package-global hash to
 #### keep track of the imported
@@ -1297,7 +1297,7 @@ L<Win32::API::Type>
 
 L<Win32::API::Callback>
 
-L<Win32::API::IATPatch>
+L<Win32::API::Callback::IATPatch>
 
 L<http://homepage.ntlworld.com/jonathan.deboynepollard/FGA/function-calling-conventions.html>
 

Callback.pm

@@ -16,7 +16,7 @@ use strict;
 use warnings;
 use vars qw( $VERSION @ISA $Stage2FuncPtrPkd );
 
-$VERSION = '0.73';
+$VERSION = '0.74';
 
 
 require Exporter;      # to export the constants to the main:: space
@@ -553,7 +553,7 @@ See L<Win32::API/UseMI64>.
 
 =head1 SEE ALSO
 
-L<Win32::API::IATPatch>
+L<Win32::API::Callback::IATPatch>
 
 =head1 AUTHOR
 

Callback/Makefile.PL

@@ -3,6 +3,27 @@
 
 use ExtUtils::MakeMaker qw/ WriteMakefile/;
 
+# Must be a better way to do this, surely...
+use Config;
+
+my $is_64bit_build = ($Config{ptrsize} == 8);
+my $is_msvc_compiler = ($Config{cc} =~ /cl/);
+
+sub GS_flag {
+    if($is_msvc_compiler
+       && Win32::API::Test::compiler_version_from_shell() >= 14 ) {
+        return ' -GS- ';
+    }
+    else {
+        return '';
+    }
+}
+
+sub MY::post_constants {
+    return 'CCFLAGS '.($_[0]->{MAKE} =~ /^make/ || $_[0]->{MAKE} =~ /^dmake/ ? ':=' : '=')
+    . ' $(CCFLAGS) '.GS_flag()."\n";
+}
+
     WriteMakefile(
         'NAME'	=> 'Win32::API::Callback',
         ($] < 5.005 ? () : (

Changes

@@ -1,5 +1,11 @@
 History of Win32::API perl extension.
 
+2012-11-21  Win32::API v0.74    bulk88
+   - Fixed, non threaded Perl fix from Reini Urban
+   - Fixed, Perl 5.8 in Struct.pm syntax error (cpantesters report)
+   - Fixed, LNK 4210 warning on >= VS 2005 fixed
+   - Fixed, misc POD
+
 2012-10-20  Win32::API v0.73    bulk88
    - Known Issue, IATPatch usually does not work on Cygwin
    - Fixed, now works on 32 bit Cygwin Perl

Makefile.PL

@@ -10,6 +10,8 @@ die qq(OS unsupported\n)
 
 # Must be a better way to do this, surely...
 use Config;
+require './Test.pm';
+
 my $is_64bit_build = ($Config{ptrsize} == 8);
 my $is_msvc_compiler = ($Config{cc} =~ /cl/);
 
@@ -62,6 +64,7 @@ WriteMakefile1(
     #'clean' => {FILES => 'API_test.dll API_test_dll/Release/*'},
 
     XSOPT  => ' -nolinenumbers ',
+    ($ExtUtils::MakeMaker::VERSION >= 6.47 ? (MIN_PERL_VERSION => 5.000000) : ()),
 
     (
         $is_64bit_build
@@ -113,6 +116,21 @@ ASFLAGS =  -Zi
 ';
 }
 
+sub MY::post_constants {
+    return 'CCFLAGS '.($_[0]->{MAKE} =~ /^make/ || $_[0]->{MAKE} =~ /^dmake/ ? ':=' : '=')
+    . ' $(CCFLAGS) '.GS_flag()."\n";
+}
+
+sub GS_flag {
+    if($is_msvc_compiler
+       && Win32::API::Test::compiler_version_from_shell() >= 14 ) {
+        return ' -GS- ';
+    }
+    else {
+        return '';
+    }
+}
+
 sub WriteMakefile1 {  #Written by Alexandr Ciornii, version 0.21. Added by eumm-upgrade.
     my %params=@_;
     my $eumm_version=$ExtUtils::MakeMaker::VERSION;

Struct.pm

@@ -9,7 +9,7 @@ package Win32::API::Struct;
 use strict;
 use warnings;
 use vars qw( $VERSION @ISA );
-$VERSION = '0.63';
+$VERSION = '0.64';
 
 use Carp;
 use Win32::API::Type;
@@ -465,13 +465,13 @@ sub is_known {
         return 1;
     }
     else {
-        my $_ = $name;
-        if (s/^LP//) {
-            return exists $Known{$_};
+        my $nametest = $name;
+        if ($nametest =~ s/^LP//) {
+            return exists $Known{$nametest};
         }
-        $_ = $name;
-        if(s/\*$//){
-            return exists $Known{$_};
+        $nametest = $name;
+        if($nametest =~ s/\*$//){
+            return exists $Known{$nametest};
         }
         return 0;
     }