+ my $pfx = "# $log: ";
+ print OLDERR map { $pfx.$_ } @not_ok;
+ seek($fh, 0, SEEK_SET) or die "seek: $!";
+
+ # show unique skip texts and the number of times
+ # each text was skipped
+ local $/;
+ 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";
+ }
+ $skip = ' # total skipped: '.scalar(@sk);
+ }