From: Stephen Zander <gibreel@pobox.com>
Date: Wed, 12 May 1999 01:22:31 +0000 (-0700)
Subject: Re: Test::Harness runs tainted tests with wrong library path
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=da4582cde8cea7bec89063a51257a1b5326444a2;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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 |"