# 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');
$chdir = $1;
@INC = @up_2_t;
$setopt = 1;
- $^X =~ s!^\.([/\\])!..$1..$1!;
+ $^X =~ s!^\.([\\/])!..$1..$1!;
} else {
$chdir = 't';
@INC = '../lib';
push @INC, '.' unless ${^TAINT};
}
-$0 =~ s/\.dp$//; # for the test.deparse make target
1;