From: Craig A. Berry <craigberry@mac.com>
Date: Sat, 6 Dec 2003 18:13:32 +0000 (-0600)
Subject: setenv tweak for VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ed25396338133f61e03f805417cf71c3369ece94;p=p5sagit%2Fp5-mst-13.2.git

setenv tweak for VMS
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <3FD270AC.3000106@mac.com>

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

diff --git a/vms/vms.c b/vms/vms.c
index 65d1cbb..10bec68 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -714,6 +714,11 @@ Perl_vmssetenv(pTHX_ char *lnm, char *eqv, struct dsc$descriptor_s **tabvec)
     $DESCRIPTOR(crtlenv,"CRTL_ENV");  $DESCRIPTOR(clisym,"CLISYM");
     $DESCRIPTOR(local,"_LOCAL");
 
+    if (!lnm) {
+        set_errno(EINVAL); set_vaxc_errno(SS$_IVLOGNAM);
+        return SS$_IVLOGNAM;
+    }
+
     for (cp1 = lnm, cp2 = uplnm; *cp1; cp1++, cp2++) {
       *cp2 = _toupper(*cp1);
       if (cp1 - lnm > LNM$C_NAMLENGTH) {