From: Dave Mitchell <davem@fdisolutions.com>
Date: Thu, 5 May 2005 12:01:51 +0000 (+0000)
Subject: strictifying t/TEST stopped it handling '1..n todo' correctly
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=43fe08367a10211b912991159b5d14031e223323;p=p5sagit%2Fp5-mst-13.2.git

strictifying t/TEST stopped it handling '1..n todo' correctly
(made scope of %toto too narrow)

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

diff --git a/t/TEST b/t/TEST
index 88e40fd..15c6da9 100755
--- a/t/TEST
+++ b/t/TEST
@@ -410,13 +410,13 @@ EOT
         my $seen_ok = 0;
 	my $trailing_leader = 0;
 	my $max;
+	my %todo;
 	while (<RESULTS>) {
 	    next if /^\s*$/; # skip blank lines
 	    if ($::verbose) {
 		print $_;
 	    }
 	    unless (/^\#/) {
-		my %todo;
 		if ($trailing_leader) {
 		    # shouldn't be anything following a postfix 1..n
 		    $failure = 'extra output after trailing 1..n';