[svn:Module-Build] r12310 - in Module-Build/trunk: . t/lib

[dagolden]

Author: dagolden
Date: Thu Jan  8 19:56:27 2009
New Revision: 12310

Modified:
   Module-Build/trunk/   (props changed)
   Module-Build/trunk/t/lib/MBTest.pm

Log:
make $^X absolute during testing (backport from blead)


Modified: Module-Build/trunk/t/lib/MBTest.pm
==============================================================================
--- Module-Build/trunk/t/lib/MBTest.pm  (original)
+++ Module-Build/trunk/t/lib/MBTest.pm  Thu Jan  8 19:56:27 2009
@@ -53,9 +53,10 @@
   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 ..";