This patch gives some symptomatic relief to issues that can arise when
various logical names are present on a system that builds and tests Perl.
Much, though not all, of this is necessary because File::Find is easily
confused when a directory name component collides with an existing logical
name. I'm afraid I haven't had the time (and may not have the skill) to
properly fix File::Find.
Affected files: configure.com, vms/test.com.
--- configure.com;2 Mon Jun 24 12:00:32 2002
+++ configure.com Sun Jun 30 13:46:21 2002
@@ -6294,11 +6294,20 @@
$ 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 @@
$!
$ 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
--- vms/test.com;-0 Sat Jun 1 12:03:53 2002
+++ vms/test.com Fri Jun 28 14:22:31 2002
@@ -64,7 +64,7 @@
$ 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
[end of patch]
