Upgrade Win32 from version 0.48 to 0.49

This fixes the build with gcc-4.8.1 from http://www.mingw.org and thus
resolves perl #121643.

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index 43e0d01..6498e2b 100755 (executable)
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -1302,7 +1302,7 @@ use File::Glob qw(:case);
     },
 
     'Win32' => {
-        'DISTRIBUTION' => "JDB/Win32-0.48.tar.gz",
+        'DISTRIBUTION' => "JDB/Win32-0.49.tar.gz",
         'FILES'        => q[cpan/Win32],
     },
 

diff --git a/cpan/Win32/Win32.pm b/cpan/Win32/Win32.pm
index 7d93303..027af0e 100644 (file)
--- a/cpan/Win32/Win32.pm
+++ b/cpan/Win32/Win32.pm
@@ -8,7 +8,7 @@ package Win32;
     require DynaLoader;
 
     @ISA = qw|Exporter DynaLoader|;
-    $VERSION = '0.48';
+    $VERSION = '0.49';
     $XS_VERSION = $VERSION;
     $VERSION = eval $VERSION;
 

diff --git a/cpan/Win32/Win32.xs b/cpan/Win32/Win32.xs
index 1f573eb..b47df40 100644 (file)
--- a/cpan/Win32/Win32.xs
+++ b/cpan/Win32/Win32.xs
@@ -1,3 +1,4 @@
+#define WIN32_LEAN_AND_MEAN
 #include <wctype.h>
 #include <windows.h>
 #include <shlobj.h>

diff --git a/pod/perldelta.pod b/pod/perldelta.pod
index 5ae7276..a9d9c4f 100644 (file)
--- a/pod/perldelta.pod
+++ b/pod/perldelta.pod
@@ -181,6 +181,14 @@ L<Storable> has been upgraded from version 2.48 to 2.49.
 
 Recognition of tied SVs has been tightened up.
 
+=item *
+
+L<Win32> has been upgraded from version 0.48 to 0.49.
+
+This fixes a problem when building with B<gcc> version 4.8.1 from
+L<http://www.mingw.org>.
+[L<cpan #94730|https://rt.cpan.org/Public/Bug/Display.html?id=94730>]
+
 =back
 
 =head2 Removed Modules and Pragmata