Craig A. Berry [Thu, 8 Oct 2009 23:49:04 +0000 (18:49 -0500)]
So when we set up a dummy root for the tests on VMS, we need to
make it two levels above current rather than one in order to
prevent a lot of test failures that say "PERL_CORE is set but
I can't find your PERL_SRC!"
open( MMTMP, '>mmtesttmp.com' ) ||
die "Error creating command file; $!";
print MMTMP <<'COMMAND';
-$ MM_TEST_ROOT = F$PARSE("SYS$DISK:[-]",,,,"NO_CONCEAL")-".][000000"-"]["-"].;"+".]"
+$ MM_TEST_ROOT = F$PARSE("SYS$DISK:[--]",,,,"NO_CONCEAL")-".][000000"-"]["-"].;"+".]"
$ DEFINE/JOB/NOLOG/TRANSLATION=CONCEALED MM_TEST_ROOT 'MM_TEST_ROOT'
COMMAND
close MMTMP;