next if (!$disttags{$dist});
- # This is needed for now
- my $exists = 0;
- for my $arch (@bugcfg::architectures) {
- for my $pkg (split /[,\s]+/, $bug->{'package'}) {
- my @versions = Debbugs::Packages::getversions($pkg, $dist, $arch);
- $exists = 1 if (scalar @versions > 0);
- }
- last if $exists;
- }
-
- next if !$exists;
-
my $presence = Debbugs::Status::bug_presence(
bug => $f,
status => $bug,
for my $package (split /[,\s]+/, $bug->{'package'}) {
$_= $package; y/A-Z/a-z/; $_= $` if m/[^-+._a-z0-9]/;
- if (not defined $section{$_}) {
- if (defined $debbugssection{$_}) {
- $relinfo .= "X";
- } else {
- next; # Skip unavailable packages
- }
- }
-
push @{$packagelist{$_}}, $f;
}
my ($status) = @_;
if ($status =~ m/^\[[^]]*I/ or
- $status =~ m/ \[[^]]*X/ or
$status !~ m/ \[[^]]*T/) {
return 0;
}
return 1;
}
+sub check_worry_stable {
+ my ($status) = @_;
+
+ if ($status !~ m/ \[[^]]*S/) {
+ return 0;
+ }
+ return 1;
+}
+
1;