diff options
Diffstat (limited to 'cpan/Test-Harness/t/regression.t')
| -rw-r--r-- | cpan/Test-Harness/t/regression.t | 15 |
1 files changed, 2 insertions, 13 deletions
diff --git a/cpan/Test-Harness/t/regression.t b/cpan/Test-Harness/t/regression.t index b86dd07233..498f3de62a 100644 --- a/cpan/Test-Harness/t/regression.t +++ b/cpan/Test-Harness/t/regression.t @@ -1,13 +1,7 @@ #!/usr/bin/perl -w BEGIN { - if ( $ENV{PERL_CORE} ) { - chdir 't'; - @INC = '../lib'; - } - else { - push @INC, 't/lib'; - } + push @INC, 't/lib'; } use strict; @@ -30,10 +24,6 @@ my $IsWin32 = $^O eq 'MSWin32'; my $SAMPLE_TESTS = File::Spec->catdir( File::Spec->curdir, - ( $ENV{PERL_CORE} - ? ( File::Spec->updir(), 'ext', 'Test-Harness' ) - : () - ), 't', 'sample-tests' ); @@ -3170,8 +3160,7 @@ for my $hide_fork ( 0 .. $can_open3 ) { # Test::Builder::failure_output() method to be overridden when # TAP::Parser is not installed. Otherwise, these tests will fail. - unshift @{ $args->{switches} }, - $ENV{PERL_CORE} ? ( map {"-I$_"} @INC ) : ('-It/lib'); + unshift @{ $args->{switches} }, '-It/lib'; $args->{source} = File::Spec->catfile( $SAMPLE_TESTS, $test ); $args->{merge} = !$hide_fork; |