diff options
| author | Craig A. Berry <craigberry@mac.com> | 2002-07-01 08:52:36 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-07-01 18:35:37 +0000 |
| commit | 139df077ffa36254d586cd69d83c541e39755ed5 (patch) | |
| tree | 7ca3ccc6edbba2c0cd7a3f2996310c691b3a5e2e | |
| parent | 52f3c1af8670f243c94919af003c622c61f1ce6f (diff) | |
| download | perl-139df077ffa36254d586cd69d83c541e39755ed5.tar.gz | |
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
| -rw-r--r-- | configure.com | 21 | ||||
| -rw-r--r-- | vms/test.com | 2 |
2 files changed, 16 insertions, 7 deletions
diff --git a/configure.com b/configure.com index 085596d66b..5addf1a3bb 100644 --- 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 3c4ce9339d..aedcc92601 100644 --- 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 |