diff options
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"; |