This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
strictifying t/TEST stopped it handling '1..n todo' correctly
authorDave Mitchell <davem@fdisolutions.com>
Thu, 5 May 2005 12:01:51 +0000 (12:01 +0000)
committerDave Mitchell <davem@fdisolutions.com>
Thu, 5 May 2005 12:01:51 +0000 (12:01 +0000)
(made scope of %toto too narrow)

p4raw-id: //depot/perl@24392

t/TEST

diff --git a/t/TEST b/t/TEST
index 88e40fd..15c6da9 100755 (executable)
--- 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';