fix memory leak introduced in 0.43

jandubois · jandubois · commit 841409b37dea · 2011-01-12T21:07:41.000Z
diff --git a/Changes b/Changes
@@ -1,5 +1,8 @@
 Revision history for the Perl extension Win32.
 
+0.44	[2011-01-12]
+	- fix memory leak introduced in 0.43
+
 0.43	[2011-01-12]
 	- fix a few potential buffer overrun bugs reported by Alex Davies.
 	  [perl#78710]
diff --git a/META.yml b/META.yml
@@ -1,7 +1,7 @@
 --- #YAML:1.0
 name: Win32
 abstract: Interfaces to some Win32 API Functions
-version: 0.43
+version: 0.44
 author:
   - Jan Dubois <jand@activestate.com>
 license: perl
diff --git a/Win32.pm b/Win32.pm
@@ -8,7 +8,7 @@ package Win32;
     require DynaLoader;
 
     @ISA = qw|Exporter DynaLoader|;
-    $VERSION = '0.43';
+    $VERSION = '0.44';
     $XS_VERSION = $VERSION;
     $VERSION = eval $VERSION;
 
diff --git a/Win32.xs b/Win32.xs
@@ -1524,6 +1524,7 @@ XS(w32_GetLongPathName)
             wcscpy(wide_path, wstr);
             long_path = my_longpathW(wide_path);
             if (long_path) {
+                Safefree(wstr);
                 ST(0) = wstr_to_sv(aTHX_ long_path);
                 XSRETURN(1);
             }

Original file line number	Diff line number	Diff line change
`@@ -1524,6 +1524,7 @@ XS(w32_GetLongPathName)`
`1524`	`1524`	`wcscpy(wide_path, wstr);`
`1525`	`1525`	`long_path = my_longpathW(wide_path);`
`1526`	`1526`	`if (long_path) {`
	`1527`	`+ Safefree(wstr);`
`1527`	`1528`	`ST(0) = wstr_to_sv(aTHX_ long_path);`
`1528`	`1529`	`XSRETURN(1);`
`1529`	`1530`	`}`