$disttags{'experimental'} = grep(/^experimental$/, @tags);
my $relinfo = "";
- warn $section{$bug->{'package'}};
- if ($section{$bug->{'package'}} eq 'pseudo') {
+ if (defined($section{$bug->{'package'}}) && $section{$bug->{'package'}} eq 'pseudo') {
# versioning information makes no sense for pseudo packages,
# just use the tags
for my $dist qw(oldstable stable testing unstable experimental) {
$relinfo .= uc(substr($dist, 0, 1)) if $disttags{$dist};
}
+ next if (length($bug->{'done'}));
} else {
# default according to dondelelcaro 2006-11-11
if (!$disttags{'oldstable'} && !$disttags{'stable'} && !$disttags{'testing'} && !$disttags{'unstable'} && !$disttags{'experimental'}) {
if ($status =~ m/^\[[^]]*I/ or
$status =~ m/ \[[^]]*X/ or
- ($status =~ m/ \[[^]]*[OSUE]/ and $status !~ m/ \[[^]]*T/)) {
+ $status !~ m/ \[[^]]*T/) {
return 0;
}
return 1;