1 #include <string.h> 2 #include "sysdeps.h" 3 4 #ifndef HASUNSETENV unsetenv(const char * name)5void unsetenv(const char *name) 6 { 7 extern char** environ; 8 9 if (name) { 10 unsigned long len = strlen(name); 11 char** p = environ; 12 13 while (*p) { 14 if (strncmp(*p, name, len) == 0 && (*p)[len] == '=') { 15 do 16 *p = *(p + 1); 17 while (*++p); 18 } 19 else 20 ++p; 21 } 22 } 23 } 24 #endif 25