diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2001-12-13 14:27:08 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-14 14:43:40 +0000 |
| commit | 6537fe72dd6d63cc0c7164fec44beb82d2568599 (patch) | |
| tree | 32c01336d785c38d130126526438bf4951f89791 /lib | |
| parent | a58d912c5262ef3032191d4aea207683577527bb (diff) | |
| download | perl-6537fe72dd6d63cc0c7164fec44beb82d2568599.tar.gz | |
-t taint warnings
Message-ID: <20011214002707.GA10532@blackrider>
(reword the perlrun -t description a bit,
and move the Itaint_warn to the bottom of
the intrpvar.h for binary compatibility)
p4raw-id: //depot/perl@13684
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Test/Harness.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Test/Harness.pm b/lib/Test/Harness.pm index de85380f67..26bdf718fa 100644 --- a/lib/Test/Harness.pm +++ b/lib/Test/Harness.pm @@ -834,8 +834,8 @@ sub _set_switches { my $s = $Switches; $s .= " $ENV{'HARNESS_PERL_SWITCHES'}" if exists $ENV{'HARNESS_PERL_SWITCHES'}; - $s .= join " ", q[ "-T"], map {qq["-I$_"]} @INC - if $first =~ /^#!.*\bperl.*-\w*T/; + $s .= join " ", qq[ "-$1"], map {qq["-I$_"]} @INC + if $first =~ /^#!.*\bperl.*-\w*([tT])/; close(TEST) or print "can't close $test. $!\n"; |