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

Windows: avoid environment variables with empty name

Browse Source
This commit is contained in:
Matthew Flatt 2018-10-26 13:42:16 -07:00
parent 29a80fd7e5
commit 457a673506
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
racket/src/rktio/rktio_envvars.c
View File

@ -167,7 +167,8 @@ rktio_envvars_t *rktio_envvars(rktio_t *rktio)
count = 0;
i = 0;
while (e[i]) {
count++;
if (e[i] != '=')
count++;
while (e[i]) i++;
i++;
}
@ -187,11 +188,13 @@ rktio_envvars_t *rktio_envvars(rktio_t *rktio)
for (j = 0; p[j] && p[j] != '='; j++) {
}
p[j] = 0;
envvars->names[count] = MSC_IZE(strdup)(p);
envvars->vals[count] = MSC_IZE(strdup)(p+j+1);
if (p[0] != 0) {
envvars->names[count] = MSC_IZE(strdup)(p);
envvars->vals[count] = MSC_IZE(strdup)(p+j+1);
count++;
}
free(p);
i++;
count++;
}
FreeEnvironmentStringsW(e);