31769a1fa4
- Changed the interpreter of the test files to use /usr/bin/env to find perl in the user's path instead of hard-coding /usr/bin/perl
25 lines
376 B
Perl
Executable File
25 lines
376 B
Perl
Executable File
#! /usr/bin/env perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
if (open my $fh, '<', 'all.log')
|
|
{
|
|
my $test_file;
|
|
my %errors;
|
|
|
|
while (my $line = <$fh>)
|
|
{
|
|
$test_file = $1 if $line =~ /^# (\S+\.t)$/;
|
|
$errors{$test_file}++ if $line =~ /^not /;
|
|
}
|
|
|
|
close $fh;
|
|
|
|
printf "%-24s %4d\n", $_, $errors{$_}
|
|
for sort {$errors{$b} <=> $errors{$a}} keys %errors;
|
|
}
|
|
|
|
exit 0;
|
|
|