This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Revert "t/TEST: comment some of the <$results> loop vars"
authorJarkko Hietaniemi <jhi@iki.fi>
Fri, 7 Nov 2014 11:39:55 +0000 (06:39 -0500)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 7 Nov 2014 11:39:55 +0000 (06:39 -0500)
This reverts commit 861aa4195fddf02db2d2d1412c83a273daae9f05.

t/TEST

diff --git a/t/TEST b/t/TEST
index b5bf9bc..c540869 100755 (executable)
--- a/t/TEST
+++ b/t/TEST
@@ -574,11 +574,11 @@ EOT
        my $results = _run_test($test, $type);
 
        my $failure = "";
-       my $next = 0;                   # ++ after each ok M
-       my $seen_leader = 0;            # set after "1..N"
-       my $seen_ok = 0;                # set after "ok M"
-       my $trailing_leader = 0;        # set after "1..N" if $seen_ok
-       my $max;                        # set to N after "1..N"
+       my $next = 0;
+       my $seen_leader = 0;
+       my $seen_ok = 0;
+       my $trailing_leader = 0;
+       my $max;
        my %todo;
        while (<$results>) {
            next if /^\s*$/; # skip blank lines