[svn:parrot] r48054 - trunk/config/gen/platform/generic

[gerd at svn.parrot.org]

Author: gerd
Date: Thu Jul  8 14:18:24 2010
New Revision: 48054
URL: https://trac.parrot.org/parrot/changeset/48054

Log:
add patch from TT #1140

Modified:
   trunk/config/gen/platform/generic/env.c

Modified: trunk/config/gen/platform/generic/env.c
==============================================================================
--- trunk/config/gen/platform/generic/env.c	Thu Jul  8 13:40:39 2010	(r48053)
+++ trunk/config/gen/platform/generic/env.c	Thu Jul  8 14:18:24 2010	(r48054)
@@ -74,13 +74,13 @@
 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);
 }
 
 /*