Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

add patch from TT #1140

git-svn-id: https://svn.parrot.org/parrot/trunk@48054 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
  • Loading branch information...
commit 3fe919aefe3337c820a1aa1a212b84de01d72a08 1 parent 165db7d
gerd authored
Showing with 3 additions and 3 deletions.
  1. +3 −3 config/gen/platform/generic/env.c
View
6 config/gen/platform/generic/env.c
@@ -74,13 +74,13 @@ UnSet Environment vars
void
Parrot_unsetenv(PARROT_INTERP, STRING *str_name)
{
- char * const name = Parrot_str_to_cstring(interp, str_name);
#ifdef PARROT_HAS_UNSETENV
+ char * const name = Parrot_str_to_cstring(interp, str_name);
unsetenv(name);
+ Parrot_str_free_cstring(name);
#else
- Parrot_setenv(name, "");
+ Parrot_setenv(interp, str_name, Parrot_str_new(interp, "", 0));
#endif
- Parrot_str_free_cstring(name);
}
/*
Please sign in to comment.
Something went wrong with that request. Please try again.