1 #include <string.h>
2 #include "sysdeps.h"
3 
4 #ifndef HASUNSETENV
unsetenv(const char * name)5 void 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