This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
$Test::Harness::Verbose is a numeric value now so assigning -v to it isnt all that...
authorYves Orton <demerphq@gmail.com>
Sat, 5 Jan 2008 20:25:52 +0000 (20:25 +0000)
committerYves Orton <demerphq@gmail.com>
Sat, 5 Jan 2008 20:25:52 +0000 (20:25 +0000)
p4raw-id: //depot/perl@32856

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;