From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 20 Oct 2008 14:03:42 +0000 (+0000)
Subject: As well as @INC, also convert $^X to an absolute path in MBTest.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5f259b1a7bd18cacc0055adc9c077be77eeec24e;p=p5sagit%2Fp5-mst-13.2.git

As well as @INC, also convert $^X to an absolute path in MBTest.

p4raw-id: //depot/perl@34526
---

diff --git a/lib/Module/Build/t/lib/MBTest.pm b/lib/Module/Build/t/lib/MBTest.pm
index 14b8b9e..34f262a 100644
--- a/lib/Module/Build/t/lib/MBTest.pm
+++ b/lib/Module/Build/t/lib/MBTest.pm
@@ -16,9 +16,10 @@ BEGIN {
   unless ($ENV{PERL_CORE}) {
     push @INC, $t_lib; # Let user's installed version override
   } else {
-    # We change directories, so expand @INC to absolute paths
+    # We change directories, so expand @INC and $^X to absolute paths
     # Also add .
     @INC = (map(File::Spec->rel2abs($_), @INC), ".");
+    $^X = File::Spec->rel2abs($^X);
 
     # we are in 't', go up a level so we don't create t/t/_tmp
     chdir '..' or die "Couldn't chdir to ..";