diff options
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 814c99c399..16eb318cc3 100644 --- a/TestInit.pm +++ b/TestInit.pm @@ -27,6 +27,8 @@ $VERSION = 1.04; # http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2003-07/msg00154.html $ENV{PERL_CORE} = $^X; +$0 =~ s/\.dp$//; # for the test.deparse make target + sub import { my $self = shift; my @up_2_t = ('../../lib', '../../t'); @@ -65,7 +67,7 @@ sub import { $chdir = $1; @INC = @up_2_t; $setopt = 1; - $^X =~ s!^\.([/\\])!..$1..$1!; + $^X =~ s!^\.([\\/])!..$1..$1!; } else { $chdir = 't'; @INC = '../lib'; @@ -110,5 +112,4 @@ sub import { push @INC, '.' unless ${^TAINT}; } -$0 =~ s/\.dp$//; # for the test.deparse make target 1; |