more dangerous logical name warnings for VMS

From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <5.1.1.5.0.20020701130645.01aa8258@exchi01>

p4raw-id: //depot/perl@17394

diff --git a/configure.com b/configure.com
index 085596d..5addf1a 100644 (file)
--- a/configure.com
+++ b/configure.com
@@ -6294,11 +6294,20 @@ $ EXIT
 $ ENDSUBROUTINE ! Bad_environment
 $ echo ""
 $ echo4 "Checking for dangerous pre-existing global symbols and logical names."
-$ CALL Bad_environment "TMP"
+$ CALL Bad_environment "EXT"
+$ CALL Bad_environment "FOO"
 $ CALL Bad_environment "LIB"
+$ CALL Bad_environment "LIST"
+$ CALL Bad_environment "MIME"
+$ CALL Bad_environment "POSIX"
+$ CALL Bad_environment "SYS"
 $ CALL Bad_environment "T"
-$ CALL Bad_environment "FOO"
-$ CALL Bad_environment "EXT"
+$ CALL Bad_environment "THREAD"
+$ CALL Bad_environment "THREADS"
+$ CALL Bad_environment "TIME"
+$ CALL Bad_environment "TMP"
+$ CALL Bad_environment "UNICODE"
+$ CALL Bad_environment "UTIL"
 $ CALL Bad_environment "TEST" "SYMBOL"
 $ IF f$search("config.msg") .eqs. "" THEN echo "OK."
 $!
@@ -6495,9 +6504,9 @@ $ echo4 ""
 $!
 $ IF ( F$SEARCH("config.msg").NES."" ) 
 $ THEN
-$   echo "Hmm.  I also noted the following information while running:"
-$   echo ""
-$   type config.msg
+$   echo4 "Hmm.  I also noted the following information while running:"
+$   echo4 ""
+$   TYPE/OUTPUT=SYS$ERROR: config.msg
 $   SET PROTECTION=(SYSTEM:RWED,OWNER:RWED) config.msg
 $   DELETE/NOLOG/NOCONFIRM config.msg;
 $ ENDIF

diff --git a/vms/test.com b/vms/test.com
index 3c4ce93..aedcc92 100644 (file)
--- a/vms/test.com
+++ b/vms/test.com
@@ -64,7 +64,7 @@ $   If F$Search("VMSPIPE.COM").nes."" then Delete/Log/Noconfirm VMSPIPE.COM;*
 $   Copy/Log/NoConfirm [-]VMSPIPE.COM []
 $!
 $!  This may be set for the C compiler in descrip.mms, but it confuses the File::Find tests
-$   if f$trnlnm("sys") .nes. "" then DeAssign sys
+$   if f$trnlnm("sys") .nes. "" then Define sys " "
 $!
 $!  And do it
 $   Set Message /NoFacility/NoSeverity/NoIdentification/NoText