From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 30 Aug 2009 11:27:18 +0000 (+0100)
Subject: Correctly munge the path of $^X when running interactively, and set PERL5LIB.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=982c4793f42e01ee898353589e00eeb8123a7758;p=p5sagit%2Fp5-mst-13.2.git

Correctly munge the path of $^X when running interactively, and set PERL5LIB.
---

diff --git a/TestInit.pm b/TestInit.pm
index 3d03ed8..c626965 100644
--- a/TestInit.pm
+++ b/TestInit.pm
@@ -63,8 +63,9 @@ if (-f 't/TEST' && -f 'MANIFEST' && -d 'lib' && -d 'ext') {
 	# Looks like a test in ext.
 	chdir $1 or die "Can't chdir '$1': $!";
 	new_inc(@up_2_t);
-	$^X =~ s!^\./!../../perl!;
-	$^X =~ s!^\.\\!..\\..\\perl!;
+	set_opt(@up_2_t);
+	$^X =~ s!^\./!../../!;
+	$^X =~ s!^\.\\!..\\..\\!;
     } else {
 	chdir 't' or die "Can't chdir 't': $!";
 	new_inc('../lib');