diff options
author | Steve Hay <steve.m.hay@googlemail.com> | 2019-11-22 11:37:13 +0000 |
---|---|---|
committer | Steve Hay <steve.m.hay@googlemail.com> | 2020-02-12 17:51:59 +0000 |
commit | 56969e8a25b7910873f92215af502be0c9cd786f (patch) | |
tree | 4fafba83bda7a6b5336f85bdc8d06b509a014bcf | |
parent | a0640ddd05f0316b72f3b31be7802f53fe06657e (diff) | |
download | perl-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.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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 */ |