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 /configure.com | |
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
Diffstat (limited to 'configure.com')
-rw-r--r-- | configure.com | 21 |
1 files changed, 15 insertions, 6 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 |