From: Craig A. Berry <craigberry@mac.com>
Date: Thu, 14 Dec 2000 19:10:49 +0000 (-0600)
Subject: Re: [ID 20001214.011] Unreachable value in a search list logical name
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=39efa3ccdd2b93b61c2422c3c571d34055e1352b;p=p5sagit%2Fp5-mst-13.2.git

Re: [ID 20001214.011] Unreachable value in a search list logical name
Message-Id: <p04330100b65efbe32f30@[172.16.52.1]>

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

diff --git a/vms/vms.c b/vms/vms.c
index d0add55..fec955c 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -98,6 +98,9 @@ struct itmlst_3 {
 #define expand_wild_cards(a,b,c,d)	mp_expand_wild_cards(aTHX_ a,b,c,d)
 #define getredirection(a,b)		mp_getredirection(aTHX_ a,b)
 
+/* see system service docs for $TRNLNM -- NOT the same as LNM$_MAX_INDEX */
+#define PERL_LNM_MAX_ALLOWED_INDEX 127
+
 static char *__mystrtolower(char *str)
 {
   if (str) for (; *str; ++str) *str= tolower(*str);
@@ -152,7 +155,7 @@ Perl_vmstrnenv(pTHX_ const char *lnm, char *eqv, unsigned long int idx,
     }
 #endif
 
-    if (!lnm || !eqv || idx > LNM$_MAX_INDEX) {
+    if (!lnm || !eqv || idx > PERL_LNM_MAX_ALLOWED_INDEX) {
       set_errno(EINVAL); set_vaxc_errno(SS$_BADPARAM); return 0;
     }
     for (cp1 = (char *)lnm, cp2 = uplnm; *cp1; cp1++, cp2++) {