#void unsetenv(const char *name)
{
  char **x,**y;
  int nlen;

  if(!copied)copyenv();

  if(strchr(name,'=')!=NULL)
    {
      fprintf(stderr,"%s: unsetenv: Illegal variable name %s",progname,name);
      return;
    }


  nlen=strlen(name);

  x=environ;
  while((*x!=NULL)&&((memcmp(*x,name,nlen)!=0)||(*(*x+nlen)!='=')))x++;
  if(*x!=NULL)