Re: Test::Harness runs tainted tests with wrong library path

	Message-ID: <87u2tik88o.fsf@pooh.fire-swamp.net>

p4raw-id: //depot/perl@3403

diff --git a/lib/Test/Harness.pm b/lib/Test/Harness.pm
index 8804cbd..662ec7f 100644 (file)
--- 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 |"