diff options
author | Steve Hay <steve.m.hay@googlemail.com> | 2014-05-14 20:59:30 +0100 |
---|---|---|
committer | Steve Hay <steve.m.hay@googlemail.com> | 2014-05-14 21:15:32 +0100 |
commit | 72a2b4814f2af582db6077a7799472fa0dd3405e (patch) | |
tree | bcb282dd02f440010927ca285395f7d130bff94b | |
parent | 2358a1918b2f128e65221e2955c29a14b073e17d (diff) | |
download | perl-72a2b4814f2af582db6077a7799472fa0dd3405e.tar.gz |
Fix commit 2358a1918b
Spotted by Daniel Dragan. We use GetEnvironmentStringsW() (deliberately so:
see commit 4f46e52b00), so we must use FreeEnvironmentStringsW() to match.
(cherry picked from commit a6abe943fc6abe60b49c81ccb55b1e99f8993c8d)
-rw-r--r-- | win32/win32.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/win32/win32.c b/win32/win32.c index 081aa0ba9d..6dcc4005a0 100644 --- a/win32/win32.c +++ b/win32/win32.c @@ -1774,7 +1774,7 @@ win32_getenvironmentstrings(void) WideCharToMultiByte(CP_ACP, WC_NO_BEST_FIT_CHARS, lpWStr, wenvstrings_len, lpStr, aenvstrings_len, NULL, NULL); - FreeEnvironmentStrings(lpWStr); + FreeEnvironmentStringsW(lpWStr); return(lpStr); } |