tests: check-run: fixup un-squashed simplification

Link: https://public-inbox.org/meta/20200828221803.GA89978@dcvr/

1 files changed, 2 insertions, 5 deletions

diff --git a/t/run.perl b/t/run.perl
index e3e3e075..0ba5e044 100755
--- 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 {