At 03:52 PM 5/22/2002 -0400, Michael G Schwern wrote:
>On Sun, May 19, 2002 at 04:31:02PM -0500, Craig A. Berry wrote:
>> +$ IF F$SEARCH("t.DIR") .NES. ""
>Could you change this to look for the PERL_CORE environment variable?
Here ya go:
--- lib/ExtUtils/t/basic.t;-0 Fri May 17 17:36:24 2002
+++ lib/ExtUtils/t/basic.t Wed May 22 15:03:02 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$TRNLNM("PERL_CORE") .EQS. "" .AND. F$TYPE(PERL_CORE) .EQS. ""
+$ 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]
