}
if (!$heisen_why) {
+ my $n_blockers = scalar grep { $_->{Blocker} } @failures;
+ print MRO "njobs ", scalar(@{ $fi->{JobTexts} }), "\n";
+ print MRO "nblockers $n_blockers\n" if $n_blockers;
if (!@failures) {
print MRO "tolerable\nperfect\n" or die $!;
$fi->{Overall}.= "Perfect :-)\n";
} elsif (grep { $_->{Blocker} eq 'regression' } @failures) {
$fi->{OutcomeSummary}= "regressions - $fi->{OutcomeSummary}";
$fi->{Overall}.= "Regressions :-(\n";
- } elsif (!grep { $_->{Blocker} } @failures) {
+ } elsif (!$n_blockers) {
$fi->{OutcomeSummary}= "tolerable $fi->{OutcomeSummary}";
print MRO "tolerable\n" or die $!
unless defined $heisen_why;