mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-21 03:00:19 +02:00
Code Activity

(scm_putenv): Use unsetenv to remove entries (ie. no "="),

Browse source 
when available, for the benefit of FreeBSD and other systems where
putenv() doesn't do that itself.
This commit is contained in:
Kevin Ryde 2004-08-10 00:19:47 +00:00
parent dc23abab09
commit 5cb0151510
1 changed files with 12 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

12
libguile/posix.c
View file

@ -1238,6 +1238,18 @@ SCM_DEFINE (scm_putenv, "putenv", 1, 0, 0,
char *ptr; char *ptr;
SCM_VALIDATE_STRING (1, str); SCM_VALIDATE_STRING (1, str);
/* No '=' in the argument means we should remove the variable from the
environment. Not all putenv()s understand this (for instance FreeBSD
4.8 doesn't). To be safe, we do it explicitely using unsetenv. */
#ifdef HAVE_UNSETENV
if (strchr (SCM_STRING_CHARS (str), '=') == NULL)
{
unsetenv (SCM_STRING_CHARS (str));
return SCM_UNSPECIFIED;
}
#endif
/* must make a new copy to be left in the environment, safe from gc. */ /* must make a new copy to be left in the environment, safe from gc. */
ptr = malloc (SCM_STRING_LENGTH (str) + 1); ptr = malloc (SCM_STRING_LENGTH (str) + 1);
if (ptr == NULL) if (ptr == NULL)