diff options
| author | Craig A. Berry <craigberry@mac.com> | 2003-12-06 12:13:32 -0600 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-12-07 20:13:47 +0000 |
| commit | ed25396338133f61e03f805417cf71c3369ece94 (patch) | |
| tree | 4552cbb432620320039ba98b345f92fa743b6340 /vms | |
| parent | 243d6ab3aef600d61cccf45a3b1140e272a49e86 (diff) | |
| download | perl-ed25396338133f61e03f805417cf71c3369ece94.tar.gz | |
setenv tweak for VMS
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <3FD270AC.3000106@mac.com>
p4raw-id: //depot/perl@21864
Diffstat (limited to 'vms')
| -rw-r--r-- | vms/vms.c | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -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) { |