diff options
| author | Craig A. Berry <craigberry@mac.com> | 2002-05-25 07:19:36 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-25 16:26:53 +0000 |
| commit | 7a069417d4f8915e3382ddb926c291967ba8fe1f (patch) | |
| tree | f132d29f8363aa6135d2ae2cd6128827a7031c2e /lib/ExtUtils/t/basic.t | |
| parent | 8c1bea16abb5bfc7b9b56a932e319a1623cab1b9 (diff) | |
| download | perl-7a069417d4f8915e3382ddb926c291967ba8fe1f.tar.gz | |
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
Diffstat (limited to 'lib/ExtUtils/t/basic.t')
| -rw-r--r-- | lib/ExtUtils/t/basic.t | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/ExtUtils/t/basic.t b/lib/ExtUtils/t/basic.t index 548e85eb4d..9080434333 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; |