From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 9 Nov 2000 04:28:44 +0000 (+0000)
Subject: Make deleting for %ENV work for (newer versions of) VMS,
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3c73c7297ece6e7b9c9d9fd1e3bc63bfd3aeac0a;p=p5sagit%2Fp5-mst-13.2.git

Make deleting for %ENV work for (newer versions of) VMS,
from Craig A. Berry.

p4raw-id: //depot/perl@7618
---

diff --git a/vms/vms.c b/vms/vms.c
index 8fe4f5f..d0add55 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -596,7 +596,7 @@ vmssetenv(char *lnm, char *eqv, struct dsc$descriptor_s **tabvec)
             if ((cp1 = strchr(environ[i],'=')) && 
                 !strncmp(environ[i],lnm,cp1 - environ[i])) {
 #ifdef HAS_SETENV
-              return setenv(lnm,eqv,1) ? vaxc$errno : 0;
+              return setenv(lnm,"",1) ? vaxc$errno : 0;
             }
           }
           ivenv = 1; retsts = SS$_NOLOGNAM;