From: Craig A. Berry <craigberry@mac.com>
Date: Fri, 16 Oct 2009 21:24:35 +0000 (-0500)
Subject: Help ExtUtils::Install's tests find PERL_SRC on VMS.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=26c80adcc7731c0e4f1238e98e85fa2803538817;p=p5sagit%2Fp5-mst-13.2.git

Help ExtUtils::Install's tests find PERL_SRC on VMS.

We're testing from one level deeper than when we were in lib/.
---

diff --git a/dist/ExtUtils-Install/t/lib/MakeMaker/Test/Utils.pm b/dist/ExtUtils-Install/t/lib/MakeMaker/Test/Utils.pm
index 907ca9b..c3c214c 100644
--- a/dist/ExtUtils-Install/t/lib/MakeMaker/Test/Utils.pm
+++ b/dist/ExtUtils-Install/t/lib/MakeMaker/Test/Utils.pm
@@ -349,7 +349,7 @@ sub setup_mm_test_root {
         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;