diff options
| author | Nicholas Clark <nick@ccl4.org> | 2011-06-19 18:13:38 +0200 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2011-06-22 22:41:10 +0200 |
| commit | 5c9e8bc6ba75f5bdb1d7a63a4d6ef0d6d5adc283 (patch) | |
| tree | 2b0e4cd9e286fb537dca455d3709d5f046512bef /TestInit.pm | |
| parent | e178c74424188071a41e23f88a3648fd83276dba (diff) | |
| download | perl-5c9e8bc6ba75f5bdb1d7a63a4d6ef0d6d5adc283.tar.gz | |
In TestInit.pm, merge two substitutions into one.
Both are intended to transform ./perl into ../../perl, one for forward slashes,
one for backslashes.
Diffstat (limited to 'TestInit.pm')
| -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'); |