suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

don't mutate getenv() result

Browse Source 
svn: r3133
This commit is contained in:
Matthew Flatt 2006-05-30 20:13:54 +00:00
parent 185da3d90d
commit 8c33ccb989
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/mzscheme/dynsrc/ustart.c
View File

@ -135,6 +135,20 @@ static char *string_append(char *s1, char *s2)
return s;
}
static char *copy_string(char *s1)
{
int l1;
char *s;
l1 = strlen(s1);
s = (char *)malloc(l1 + 1);
memcpy(s, s1, l1 + 1);
return s;
}
static char *do_path_append(char *s1, int l1, char *s2)
{
int l2;
@ -224,7 +238,7 @@ int main(int argc, char **argv)
me = path_append(getcwd(NULL, 0), me);
} else {
/* We have to find the executable by searching PATH: */
char *path = getenv("PATH"), *p, *m;
char *path = copy_string(getenv("PATH")), *p, *m;
int more;
if (!path) {