tests: check-run: fixup un-squashed simplification

[public-inbox.git] / t / run.perl

diff --git a/t/run.perl b/t/run.perl
index e3e3e07512fbd852edd1e0233399e2955c526a6a..0ba5e0442d9147673884557ebe1010a0d08932ef 100755 (executable)
--- a/t/run.perl
+++ b/t/run.perl
@@ -80,11 +80,8 @@ sub test_status () {
                        my @sk = (<$fh> =~ m/^ok [0-9]+ (# skip [^\n]+)/mgs);
                        if (@sk) {
                                my %nr;
-                               $nr{$_}++ for @sk;
-                               for (@sk) {
-                                       my $n = delete $nr{$_} or next;
-                                       print OLDERR "$pfx$_ ($n)\n";
-                               }
+                               my @err = grep { !$nr{$_}++ } @sk;
+                               print OLDERR "$pfx$_ ($nr{$_})\n" for @err;
                                $skip = ' # total skipped: '.scalar(@sk);
                        }
                } else {