diff options
| author | Nicholas Clark <nick@ccl4.org> | 2009-08-30 12:27:18 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2009-08-30 13:43:08 +0100 |
| commit | 982c4793f42e01ee898353589e00eeb8123a7758 (patch) | |
| tree | 9859aa4308ae77fe49400aa76b45fa6e322a1adc /TestInit.pm | |
| parent | ed02a3bf5adcb3fb74cb46557427f6afdc14e80c (diff) | |
| download | perl-982c4793f42e01ee898353589e00eeb8123a7758.tar.gz | |
Correctly munge the path of $^X when running interactively, and set PERL5LIB.
Diffstat (limited to 'TestInit.pm')
| -rw-r--r-- | TestInit.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/TestInit.pm b/TestInit.pm index 3d03ed82e1..c626965a03 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'); |