diff options
| author | Peter Prymmer <PPrymmer@factset.com> | 1999-05-13 08:29:57 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-05-14 08:08:01 +0000 |
| commit | a4521476fe41e2ec4e09ca8b4982e94e0cf66f6e (patch) | |
| tree | fda674621c480b3c6ca924850d44c13b68b23c22 /configure.com | |
| parent | 63500cf69250b949dcdbbf6371b5130a98e40ff2 (diff) | |
| download | perl-a4521476fe41e2ec4e09ca8b4982e94e0cf66f6e.tar.gz | |
add config.msg to VMS configure.com
To: perl5-porters@perl.org, vmsperl@perl.org
Message-Id: <9905132229.AA15854@forte.com>
p4raw-id: //depot/cfgperl@3422
Diffstat (limited to 'configure.com')
| -rw-r--r-- | configure.com | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/configure.com b/configure.com index 388ba6b929..6a1c37ae82 100644 --- a/configure.com +++ b/configure.com @@ -1992,6 +1992,32 @@ $ SET DEFAULT [-.vms] $ @subconfigure $ SET DEFAULT 'dflt $! +$! Warn of dangerous logical names +$! +$Bad_logical: SUBROUTINE +$ IF f$trnlnm(p1) .nes. "" +$ THEN +$ IF f$search("config.msg") .nes. "" +$ THEN +$ OPEN/APPEND CONFIG config.msg +$ ELSE +$ OPEN/WRITE CONFIG config.msg +$ ENDIF +$ WRITE CONFIG "Logical name ''p1' found in environment as " + f$trnlnm(p1) +$ WRITE CONFIG " deassign before building ''package'" +$ CLOSE CONFIG +$ ENDIF +$ EXIT +$ ENDSUBROUTINE ! Bad_logical +$ echo "" +$ echo4 "%Config-I-VMS, Checking for dangerous pre extant logical names." +$ CALL Bad_logical "TMP" +$ CALL Bad_logical "LIB" +$ CALL Bad_logical "T" +$ CALL Bad_logical "FOO" +$ CALL Bad_logical "EXT" +$ IF f$search("config.msg") .eqs. "" THEN echo "OK." +$! $! %Config-I-VMS, write perl_setup.com here $! $ echo "" @@ -2078,6 +2104,15 @@ $ ENDIF $ echo4 " ''make'''makefile'", macros $ echo4 "" $! +$ IF ( F$SEARCH("config.msg").NES."" ) +$ THEN +$ echo "Hmm. I also noted the following information while running:" +$ echo "" +$ type config.msg +$ SET PROTECTION=(SYSTEM:RWED,OWNER:RWED) config.msg +$ DELETE/NOLOG/NOCONFIRM config.msg; +$ ENDIF +$! $Clean_up: $ IF (silent) $ THEN |