Skip to content

Commit

Permalink
Fix MYMALLOC (PERL_MALLOC) build on Windows
Browse files Browse the repository at this point in the history
Commit 34716e2 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 ff69e88)
  • Loading branch information
steve-m-hay committed Feb 12, 2020
1 parent a0640dd commit 56969e8
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion util.c
Expand Up @@ -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 */
Expand Down

0 comments on commit 56969e8

Please sign in to comment.