[libwin32] r540 committed - fix memory leak introduced in 0.43

[libw...@googlecode.com]

Revision: 540
Author: dubiously
Date: Wed Jan 12 13:07:41 2011
Log: fix memory leak introduced in 0.43
http://code.google.com/p/libwin32/source/detail?r=540

Modified:
/trunk/Win32/Changes
/trunk/Win32/META.yml
/trunk/Win32/Win32.pm
/trunk/Win32/Win32.xs

=======================================
--- /trunk/Win32/Changes Wed Jan 12 11:24:06 2011
+++ /trunk/Win32/Changes Wed Jan 12 13:07:41 2011
@@ -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]
=======================================
--- /trunk/Win32/META.yml Wed Jan 12 11:24:06 2011
+++ /trunk/Win32/META.yml Wed Jan 12 13:07:41 2011
@@ -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 <ja...@activestate.com>
license: perl
=======================================
--- /trunk/Win32/Win32.pm Wed Jan 12 11:24:06 2011
+++ /trunk/Win32/Win32.pm Wed Jan 12 13:07:41 2011
@@ -8,7 +8,7 @@
require DynaLoader;

@ISA = qw|Exporter DynaLoader|;
- $VERSION = '0.43';
+ $VERSION = '0.44';
$XS_VERSION = $VERSION;
$VERSION = eval $VERSION;

=======================================
--- /trunk/Win32/Win32.xs Wed Jan 12 11:24:06 2011
+++ /trunk/Win32/Win32.xs Wed Jan 12 13:07:41 2011
@@ -1524,6 +1524,7 @@
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);
}