for doing it.
$total++;
$pendingcount++ if ($scanlib::bugs{$nr}->{'pending'});
$patchcount++ if ($scanlib::bugs{$nr}->{'patch'});
- $ignorecount++ if ($scanlib::bugs{$nr}->{'etch-ignore'});
+ $ignorecount++ if ($scanlib::bugs{$nr}->{'sarge-ignore'} || $scanlib::bugs{$nr}->{'etch-ignore'});
$worrycount++ if (scanlib::check_worry($scanlib::bugs{$nr}));
$stablecount++ if (scanlib::check_worry_stable($scanlib::bugs{$nr}));
}
for my $nr (@{$scanlib::packagelist{$p}}) {
$pendingtotal++ if ($scanlib::bugs{$nr}->{'pending'});
$patchtotal++ if ($scanlib::bugs{$nr}->{'patch'});
- $ignoretotal++ if ($scanlib::bugs{$nr}->{'etch-ignore'});
+ $ignoretotal++ if ($scanlib::bugs{$nr}->{'sarge-ignore'} || $scanlib::bugs{$nr}->{'etch-ignore'});
$worrytotal++ if (scanlib::check_worry($scanlib::bugs{$nr}));
$stabletotal++ if (scanlib::check_worry_stable($scanlib::bugs{$nr}));
next if !$affects_any;
}
- for my $keyword qw(pending patch help moreinfo unreproducible security upstream etch-ignore) {
+ for my $keyword qw(pending patch help moreinfo unreproducible security upstream sarge-ignore etch-ignore) {
$bi->{$keyword} = ($bug->{'keywords'} =~ /\b$keyword\b/) ? 1 : 0;
}
sub check_worry_stable {
my ($bi) = @_;
- return ($bi->{'stable'});
+ return ($bi->{'stable'} && !$bi->{'sarge-ignore'});
}
sub get_taginfo {
$taginfo .= $bi->{'unreproducible'} ? "R" : " ";
$taginfo .= $bi->{'security'} ? "S" : " ";
$taginfo .= $bi->{'upstream'} ? "U" : " ";
- $taginfo .= $bi->{'etch-ignore'} ? "I" : " ";
+ $taginfo .= ($bi->{'sarge-ignore'} || $bi->{'etch-ignore'}) ? "I" : " ";
return $taginfo;
}