This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
setenv tweak for VMS
authorCraig A. Berry <craigberry@mac.com>
Sat, 6 Dec 2003 18:13:32 +0000 (12:13 -0600)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sun, 7 Dec 2003 20:13:47 +0000 (20:13 +0000)
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <3FD270AC.3000106@mac.com>

p4raw-id: //depot/perl@21864

vms/vms.c

index 65d1cbb..10bec68 100644 (file)
--- 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");
 
     $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) {
     for (cp1 = lnm, cp2 = uplnm; *cp1; cp1++, cp2++) {
       *cp2 = _toupper(*cp1);
       if (cp1 - lnm > LNM$C_NAMLENGTH) {