This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Upgrade Win32 from version 0.48 to 0.49
authorSteve Hay <steve.m.hay@googlemail.com>
Tue, 15 Apr 2014 19:54:01 +0000 (20:54 +0100)
committerSteve Hay <steve.m.hay@googlemail.com>
Tue, 15 Apr 2014 19:54:01 +0000 (20:54 +0100)
This fixes the build with gcc-4.8.1 from http://www.mingw.org and thus
resolves perl #121643.

Porting/Maintainers.pl
cpan/Win32/Win32.pm
cpan/Win32/Win32.xs
pod/perldelta.pod

index 43e0d01..6498e2b 100755 (executable)
@@ -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],
     },
 
index 7d93303..027af0e 100644 (file)
@@ -8,7 +8,7 @@ package Win32;
     require DynaLoader;
 
     @ISA = qw|Exporter DynaLoader|;
-    $VERSION = '0.48';
+    $VERSION = '0.49';
     $XS_VERSION = $VERSION;
     $VERSION = eval $VERSION;
 
index 1f573eb..b47df40 100644 (file)
@@ -1,3 +1,4 @@
+#define WIN32_LEAN_AND_MEAN
 #include <wctype.h>
 #include <windows.h>
 #include <shlobj.h>
index 5ae7276..a9d9c4f 100644 (file)
@@ -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