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

[PATCH MM 5.95_01] basic.t VMS dir depth revision

Thread Next
From:
Craig A. Berry
Date:
May 19, 2002 14:29
Subject:
[PATCH MM 5.95_01] basic.t VMS dir depth revision
Message ID:
5.1.0.14.2.20020519162421.02f36070@exchi01
Things have to look a bit different in the core than when building 
ExtUtils-MakeMaker separately.  Specifically we want to start from t/ not 
t/t/.  This against perl@16694 but should apply cleanly against MakeMaker.

--- lib/ExtUtils/t/basic.t;-0   Fri May 17 17:36:24 2002
+++ lib/ExtUtils/t/basic.t      Sun May 19 16:20:36 2002
@@ -30,7 +30,14 @@
     # in a DCL subprocess and put it in the job table so the parent sees it.
     open( BFDTMP, '>bfdtesttmp.com' ) || die "Error creating command file; $!";
     print BFDTMP <<'COMMAND';
-$ BFD_TEST_ROOT = F$PARSE("[.t]",,,,"NO_CONCEAL")-".][000000"-"]["-"].;"+".]"
+$ IF F$SEARCH("t.DIR") .NES. "" 
+$ THEN
+$!  building CPAN version
+$   BFD_TEST_ROOT = F$PARSE("[.t]",,,,"NO_CONCEAL")-".][000000"-"]["-"].;"+".]"
+$ ELSE
+$!  we're in the core
+$   BFD_TEST_ROOT = F$PARSE("SYS$DISK:[]",,,,"NO_CONCEAL")-".][000000"-"]["-"].;"+".]"
+$ ENDIF
 $ DEFINE/JOB/NOLOG/TRANSLATION=CONCEALED BFD_TEST_ROOT 'BFD_TEST_ROOT'
 COMMAND
     close BFDTMP;
[end of patch]





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