From: Craig A. Berry <craigberry@mac.com>
Date: Sat, 25 May 2002 12:19:36 +0000 (-0500)
Subject: basic.t library problem on VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7a069417d4f8915e3382ddb926c291967ba8fe1f;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;