From: Charles Bailey <bailey@newman.upenn.edu>
Date: Thu, 20 Jan 2000 02:03:35 +0000 (+0000)
Subject: Minor cosmetic updates
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8560c20dd6b2f3dfec719d4b500be45742de4507;p=p5sagit%2Fp5-mst-13.2.git

Minor cosmetic updates

p4raw-id: //depot/vmsperl@4822
---

diff --git a/configure.com b/configure.com
index a77bec8..3c121e0 100644
--- a/configure.com
+++ b/configure.com
@@ -166,8 +166,8 @@ $     P'i' = P'i' - "f"
 $     config_sh = P'i'
 $     IF (F$SEARCH(config_sh).NES."")
 $     THEN
-$       test = F$FILE_ATTRIBUTES(config_sh,"PRO")
-$       IF (F$LOCATE("R",test).NE.F$LENGTH(test)) 
+$       test_config_sh = F$FILE_ATTRIBUTES(config_sh,"PRO")
+$       IF (F$LOCATE("R",test_config_sh).NE.F$LENGTH(test_config_sh)) 
 $       THEN
 $         CONTINUE !at this point check UIC && if test allows...
 $                  !to be continued ?
@@ -2078,7 +2078,7 @@ $   ENDIF
 $ EXIT
 $ ENDSUBROUTINE ! Bad_environment
 $ echo ""
-$ echo4 "%Config-I-VMS, Checking for dangerous pre extant global symbols and logical names."
+$ echo4 "%Config-I-VMS, Checking for dangerous pre-existing global symbols and logical names."
 $ CALL Bad_environment "TMP"
 $ CALL Bad_environment "LIB"
 $ CALL Bad_environment "T"