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 (file)
--- 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;