develooper Front page | perl.makemaker | Postings from May 2002

[PATCH perl@16764/MM 5.96_01] basic.t library problem on VMS

Thread Next
From:
Craig A. Berry
Date:
May 25, 2002 10:26
Subject:
[PATCH perl@16764/MM 5.96_01] basic.t library problem on VMS
Message ID:
a0511170cb914b40fc32d@[172.16.52.1]
Hopefully the last VMS tweak to this twisty test.  We were using t/ 
as the root directory, which was preventing us from locating 
libraries from ../lib (you can't go higher than the root).  This 
failed to show up in earlier testing because various things in the 
environment (PERL_ROOT and possibly PERL5LIB) caused the libraries to 
be located, but these can't be depended on during a fresh build and 
test run; they may not exist, and if they do they probably point to a 
different Perl installation.  The patch below takes care of this by
making the root one level higher, which is luckily still deep enough 
for the Big-Fat-Dummy tests to avoid the 8-level limit on older 
systems.


--- lib/ExtUtils/t/basic.t;-0	Thu May 23 16:04:47 2002
+++ lib/ExtUtils/t/basic.t	Sat May 25 09:32:47 2002
@@ -33,10 +33,10 @@
 $ 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 @@
 
     system '@bfdtesttmp.com';
     END { 1 while unlink 'bfdtesttmp.com' }
-    $root_dir = 'BFD_TEST_ROOT:[000000]';
+    $root_dir = 'BFD_TEST_ROOT:[t]';
 }
 
 chdir $root_dir;
[end of patch]
-- 
________________________________________
Craig A. Berry
mailto:craigberry@mac.com

"... getting out of a sonnet is much more
 difficult than getting in."
                 Brad Leithauser

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About