diff options
| author | Stephen Zander <gibreel@pobox.com> | 1999-05-11 18:22:31 -0700 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-12 10:49:01 +0000 |
| commit | da4582cde8cea7bec89063a51257a1b5326444a2 (patch) | |
| tree | 1e84da5a1c96a52e789ef68e0b2a222cfdce14d2 /lib/Test | |
| parent | 863bc19c9228c8c8a05b18984696adb2abaa38b8 (diff) | |
| download | perl-da4582cde8cea7bec89063a51257a1b5326444a2.tar.gz | |
Re: Test::Harness runs tainted tests with wrong library path
Message-ID: <87u2tik88o.fsf@pooh.fire-swamp.net>
p4raw-id: //depot/perl@3403
Diffstat (limited to 'lib/Test')
| -rw-r--r-- | lib/Test/Harness.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Test/Harness.pm b/lib/Test/Harness.pm index 8804cbd8b8..662ec7ff33 100644 --- a/lib/Test/Harness.pm +++ b/lib/Test/Harness.pm @@ -83,7 +83,8 @@ sub runtests { $fh->open($test) or print "can't open $test. $!\n"; my $first = <$fh>; my $s = $switches; - $s .= q[ "-T"] if $first =~ /^#!.*\bperl.*-\w*T/; + $s .= join " ", q[ "-T"], map {qq["-I$_"]} @INC + if $first =~ /^#!.*\bperl.*-\w*T/; $fh->close or print "can't close $test. $!\n"; my $cmd = ($ENV{'COMPILE_TEST'})? "./perl -I../lib ../utils/perlcc $test -run 2>> ./compilelog |" |