basic.t library problem on VMS

From: "Craig A. Berry" <craigberry@mac.com>
Message-Id: <a0511170cb914b40fc32d@[172.16.52.1]>

p4raw-id: //depot/perl@16782

diff --git a/lib/ExtUtils/t/basic.t b/lib/ExtUtils/t/basic.t
index 548e85e..9080434 100644 (file)
--- a/lib/ExtUtils/t/basic.t
+++ b/lib/ExtUtils/t/basic.t
@@ -33,10 +33,10 @@ if( $^O eq 'VMS' ) {
 $ IF F$TRNLNM("PERL_CORE") .EQS. "" .AND. F$TYPE(PERL_CORE) .EQS. ""
 $ THEN
 $!  building CPAN version
-$   BFD_TEST_ROOT = F$PARSE("[.t]",,,,"NO_CONCEAL")-".][000000"-"]["-"].;"+".]"
+$   BFD_TEST_ROOT = F$PARSE("SYS$DISK:[]",,,,"NO_CONCEAL")-".][000000"-"]["-"].;"+".]"
 $ ELSE
 $!  we're in the core
-$   BFD_TEST_ROOT = F$PARSE("SYS$DISK:[]",,,,"NO_CONCEAL")-".][000000"-"]["-"].;"+".]"
+$   BFD_TEST_ROOT = F$PARSE("SYS$DISK:[-]",,,,"NO_CONCEAL")-".][000000"-"]["-"].;"+".]"
 $ ENDIF
 $ DEFINE/JOB/NOLOG/TRANSLATION=CONCEALED BFD_TEST_ROOT 'BFD_TEST_ROOT'
 COMMAND
@@ -44,7 +44,7 @@ COMMAND
 
     system '@bfdtesttmp.com';
     END { 1 while unlink 'bfdtesttmp.com' }
-    $root_dir = 'BFD_TEST_ROOT:[000000]';
+    $root_dir = 'BFD_TEST_ROOT:[t]';
 }
 
 chdir $root_dir;