6 extern char **__environ;
7 extern char **__env_map;
9 int unsetenv(const char *name)
12 size_t l = strlen(name);
14 if (!*name || strchr(name, '=')) {
19 for (i=0; __environ[i] && (memcmp(name, __environ[i], l) || __environ[i][l] != '='); i++);
22 for (j=0; __env_map[j] && __env_map[j] != __environ[i]; j++);
24 for (; __env_map[j]; j++)
25 __env_map[j] = __env_map[j+1];
27 for (; __environ[i]; i++)
28 __environ[i] = __environ[i+1];