Both are intended to transform ./perl into ../../perl, one for forward slashes,
one for backslashes.
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.
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');