From 40663f4a504fe6bb0a298488ed5393d692786c82 Mon Sep 17 00:00:00 2001 From: "Steinar H. Gunderson" Date: Thu, 8 Mar 2007 14:44:00 +0000 Subject: [PATCH 1/1] Adjust to the now-official bug presence code. --- scanlib.pm | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/scanlib.pm b/scanlib.pm index ca042af..8ef9b67 100644 --- a/scanlib.pm +++ b/scanlib.pm @@ -14,8 +14,7 @@ # %packagelist - map from packagename to bugreports # %NMU - map with NMU information -#use lib qw(/org/bugs.debian.org/perl/); -use lib qw(/home/sesse/debbugs); +use lib qw(/org/bugs.debian.org/perl); use LWP::UserAgent; use Debbugs::MIME qw(decode_rfc1522 encode_rfc1522); use Debbugs::Packages; @@ -230,7 +229,13 @@ sub scanspooldir() { local $SIG{__WARN__} = sub {}; next if (!$disttags{$dist}); - if (Debbugs::Status::check_bug_presence(bug => $f, status => $bug, dist => $dist) eq 'pending') { + my $presence = Debbugs::Status::bug_presence(bug => $f, status => $bug, dist => $dist); + + # ignore bugs that are absent/fixed in this distribution, include everything + # else (that is, "found" which says that the bug is present, and undef, which + # indicates that no versioning information is present and it's not closed + # unversioned) + if (!defined($presence) || ($presence ne 'absent' && $presence ne 'fixed')) { $relinfo .= uc(substr($dist, 0, 1)); } } -- 2.39.2