diff options
| author | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2010-06-29 14:27:34 +0100 |
|---|---|---|
| committer | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2010-06-29 14:29:35 +0100 |
| commit | a642fc51b9c225f75f859da6a69df0b4ac81d396 (patch) | |
| tree | 84f4479368eef922279b1c6d9bddabe5bc523e53 /cpan/Test-Harness/t/compat/inc_taint.t | |
| parent | ded2eedcb4ea5645092eea71df32e0f737b89d90 (diff) | |
| download | perl-a642fc51b9c225f75f859da6a69df0b4ac81d396.tar.gz | |
Fixed up Test-Harness tests to work under core. There are still three outstanding will ask AndyA to investigate
Diffstat (limited to 'cpan/Test-Harness/t/compat/inc_taint.t')
| -rw-r--r-- | cpan/Test-Harness/t/compat/inc_taint.t | 12 |
1 files changed, 2 insertions, 10 deletions
diff --git a/cpan/Test-Harness/t/compat/inc_taint.t b/cpan/Test-Harness/t/compat/inc_taint.t index b0917dbb99..e74ede02cd 100644 --- a/cpan/Test-Harness/t/compat/inc_taint.t +++ b/cpan/Test-Harness/t/compat/inc_taint.t @@ -1,13 +1,7 @@ #!/usr/bin/perl -w BEGIN { - if ( $ENV{PERL_CORE} ) { - chdir 't'; - @INC = ( '../lib', '../ext/Test-Harness/t/lib' ); - } - else { - use lib 't/lib'; - } + use lib 't/lib'; } use strict; @@ -34,9 +28,7 @@ sub _all_ok { select NULL; my ( $tot, $failed ) = Test::Harness::execute_tests( tests => [ - $ENV{PERL_CORE} - ? '../ext/Test-Harness/t/sample-tests/inc_taint' - : 't/sample-tests/inc_taint' + 't/sample-tests/inc_taint' ] ); select STDOUT; |