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

p4raw-id: //depot/perl@32856

1 files changed, 1 insertions, 1 deletions

diff --git a/t/harness b/t/harness
index e7c1e88271..d5b2924a63 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;