| Date: | Wed, 31 Aug 2005 11:30:09 -0700 |
| From: | Dave Clendenan <davec [...] ActiveState.com> |
| To: | bug-test-harness [...] rt.cpan.org |
| Subject: | prove bug - incorrect IO redirection |
Hi
I've found a minor bug found in prove, when run under
FreeBSD's bourne shell: @switches can end up empty if no
options are passed to prove, which leads to prove incorrectly
redirecting stdin. Perl version was 5.6.1
The following one-line patch fixes it.
Thanks
Dave
----------------------------------------------------------
Index: Test-Harness/bin/prove
--- Test-Harness/bin/prove.~1~ Wed Aug 31 10:25:00 2005
+++ Test-Harness/bin/prove Wed Aug 31 10:25:00 2005
@@ -63,7 +63,7 @@
# Build up TH switches
push( @switches, map { "-I$_" } @includes );
-$Test::Harness::Switches = join( " ", @switches );
+$Test::Harness::Switches = join( " ", @switches ) if @switches;
print "# \$Test::Harness::Switches: $Test::Harness::Switches\n" if $debug;
my @tests;
End of Patch.