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

p4raw-id: //depot/perl@32856

diff --git a/t/harness b/t/harness
index e7c1e88..d5b2924 100644 (file)
--- 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;