7 print "usage: $0 [-r]\n";
8 print "Counts the number of errors of each type.\n";
9 print "-r means down to the nearest 10.\n";
17 } elsif ($arg =~ /-r/) {
27 if (defined $msgs{$msg}) {
38 s/(.*can't.*').*?('.*)/$1 $2/;
39 } elsif ($_ =~ /don't/) {
40 s/(.*don't.*').*?('.*)/$1 $2/;
45 s/\(\w+ returns null\)/(... returns null)/;
46 s/dma on the stack \(.*?\)/dma on the stack (...)/;
47 s/possible ERR_PTR '' to .*/possible ERR_PTR '' to .../;
48 s/inconsistent returns ([^ ]+?) locked \(\)/inconsistent returns ... locked ()/;
49 s/(.*) [^ ]* (too large for) [^ ]+ (.*)/$1 $2 $3/;
54 foreach my $key (sort { $msgs{$b} <=> $msgs{$a} } keys %msgs) {
55 my $count = $msgs{$key};
58 $count = $msgs{$key} - $msgs{$key} % 10;