while (my ($nr, $bug) = each %scanlib::bugs) {
for my $package (split /[,\s]+/, $bug->{'package'}) {
$package =~ y/A-Z/a-z/;
- $package = $` if ($package =~ /[^-+._a-z0-9]/);
+ $package = $` if ($package =~ /[^-+._:a-z0-9]/);
- if (scanlib::check_worry_unstable($bug)) {
+ # this hack is specific to britney counts, and ignores
+ # bugs tagged ignore for the next testing release
+ if (scanlib::check_worry_unstable($bug) and not $bug->{'squeeze-ignore'}) {
push @{$unstablebugs{$package}}, $nr;
}
if (scanlib::check_worry($bug)) {