diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-17 09:49:01 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-17 09:49:01 +0000 |
| commit | 0c1a8ec7bddcb61a4b45cf947cb375e7d350aaa6 (patch) | |
| tree | 9f215fd51a481c9f1ace714e99e0d0a615920459 /configure.com | |
| parent | 3f4520fee5e3350893877859562bde5dfa18d3a8 (diff) | |
| parent | df1e65fbbe8180b71c539068fbd5de404db3b6ba (diff) | |
| download | perl-0c1a8ec7bddcb61a4b45cf947cb375e7d350aaa6.tar.gz | |
integrate cfgperl changes into mainline
p4raw-id: //depot/perl@3433
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 |