diff options
-rw-r--r-- | TestInit.pm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/TestInit.pm b/TestInit.pm index a113554068..7c24da46e6 100644 --- a/TestInit.pm +++ b/TestInit.pm @@ -18,7 +18,7 @@ package TestInit; -$VERSION = 1.03; +$VERSION = 1.04; # Let tests know they're running in the perl core. Useful for modules # which live dual lives on CPAN. @@ -64,8 +64,7 @@ if (-f 't/TEST' && -f 'MANIFEST' && -d 'lib' && -d 'ext') { chdir $1 or die "Can't chdir '$1': $!"; new_inc(@up_2_t); set_opt(@up_2_t); - $^X =~ s!^\./!../../!; - $^X =~ s!^\.\\!..\\..\\!; + $^X =~ s!^\.([/\\])!..$1..$1!; } else { chdir 't' or die "Can't chdir 't': $!"; new_inc('../lib'); |