From: Yves Orton <demerphq@gmail.com>
Date: Sat, 5 Jan 2008 20:25:52 +0000 (+0000)
Subject: $Test::Harness::Verbose is a numeric value now so assigning -v to it isnt all that... 
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9d6c4c89d7abc4ff8da33eead5dcb715c685a2e8;p=p5sagit%2Fp5-mst-13.2.git

$Test::Harness::Verbose is a numeric value now so assigning -v to it isnt all that helpful.

p4raw-id: //depot/perl@32856
---

diff --git a/t/harness b/t/harness
index e7c1e88..d5b2924 100644
--- a/t/harness
+++ b/t/harness
@@ -14,7 +14,7 @@ my $torture; # torture testing?
 use Test::Harness;
 
 $Test::Harness::switches = "";    # Too much noise otherwise
-$Test::Harness::verbose = shift if @ARGV && $ARGV[0] eq '-v';
+$Test::Harness::Verbose++ while @ARGV && $ARGV[0] eq '-v' && shift;
 
 if ($ARGV[0] && $ARGV[0] eq '-torture') {
     shift;