summaryrefslogtreecommitdiff
path: root/TestInit.pm
diff options
context:
space:
mode:
Diffstat (limited to 'TestInit.pm')
-rw-r--r--TestInit.pm5
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');