Update to Win32-0.44 from CPAN

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index e2f7d28..cd268fd 100755 (executable)
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -1640,7 +1640,7 @@ use File::Glob qw(:case);
     'Win32' =>
        {
        'MAINTAINER'    => 'jand',
-       'DISTRIBUTION'  => "JDB/Win32-0.43.tar.gz",
+       'DISTRIBUTION'  => "JDB/Win32-0.44.tar.gz",
        'FILES'         => q[cpan/Win32],
        'UPSTREAM'      => 'cpan',
        },

diff --git a/cpan/Win32/Changes b/cpan/Win32/Changes
index 7a42597..dbbb4ff 100644 (file)
--- a/cpan/Win32/Changes
+++ b/cpan/Win32/Changes
@@ -1,5 +1,8 @@
 Revision history for the Perl extension Win32.\r
 \r
+0.44   [2011-01-12]\r
+       - fix memory leak introduced in 0.43\r
+\r
 0.43   [2011-01-12]\r
        - fix a few potential buffer overrun bugs reported by Alex Davies.\r
          [perl#78710]\r

diff --git a/cpan/Win32/Win32.pm b/cpan/Win32/Win32.pm
index cfc5bb9..d37352a 100644 (file)
--- a/cpan/Win32/Win32.pm
+++ b/cpan/Win32/Win32.pm
@@ -8,7 +8,7 @@ package Win32;
     require DynaLoader;\r
 \r
     @ISA = qw|Exporter DynaLoader|;\r
-    $VERSION = '0.43';\r
+    $VERSION = '0.44';\r
     $XS_VERSION = $VERSION;\r
     $VERSION = eval $VERSION;\r
 \r

diff --git a/cpan/Win32/Win32.xs b/cpan/Win32/Win32.xs
index 9c4ea33..8af0e88 100644 (file)
--- a/cpan/Win32/Win32.xs
+++ b/cpan/Win32/Win32.xs
@@ -1524,6 +1524,7 @@ XS(w32_GetLongPathName)
             wcscpy(wide_path, wstr);\r
             long_path = my_longpathW(wide_path);\r
             if (long_path) {\r
+                Safefree(wstr);\r
                 ST(0) = wstr_to_sv(aTHX_ long_path);\r
                 XSRETURN(1);\r
             }\r