mirror of
https://github.com/GothenburgBitFactory/taskwarrior.git
synced 2025-06-26 10:54:26 +02:00
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
24 lines
376 B
Perl
Executable file
24 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;
|
|
|