summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSteve Hay <steve.m.hay@googlemail.com>2019-11-22 11:37:13 +0000
committerSteve Hay <steve.m.hay@googlemail.com>2020-02-12 17:51:59 +0000
commit56969e8a25b7910873f92215af502be0c9cd786f (patch)
tree4fafba83bda7a6b5336f85bdc8d06b509a014bcf
parenta0640ddd05f0316b72f3b31be7802f53fe06657e (diff)
downloadperl-56969e8a25b7910873f92215af502be0c9cd786f.tar.gz
Fix MYMALLOC (PERL_MALLOC) build on Windows
Commit 34716e2a6e changed the WIN32 version of Perl_my_setenv() from using Newx() to using safesysmalloc() (in S_env_alloc()), but neglected to make the corresponding change from Safefree() to safesysfree(). (cherry picked from commit ff69e883532791953a441f1a5316276bb142797c)
-rw-r--r--util.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/util.c b/util.c
index e5320c8b8c..15ccf4dc4d 100644
--- a/util.c
+++ b/util.c
@@ -2248,7 +2248,7 @@ Perl_my_setenv(pTHX_ const char *nam, const char *val)
envstr = S_env_alloc(NULL, nlen, vlen, 2, 1);
my_setenv_format(envstr, nam, nlen, val, vlen);
(void)PerlEnv_putenv(envstr);
- Safefree(envstr);
+ safesysfree(envstr);
}
# endif /* WIN32 || NETWARE */