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 {