Fix some warnings, and don't let (non-tagged) pseudopackages worry us for

testing.

diff --git a/scanlib.pm b/scanlib.pm
index 83e4b601fca414f90847e42e6fe3396174129ba3..dc4aac662351f0b5826a4ed2075d24c45906e418 100644 (file)
--- a/scanlib.pm
+++ b/scanlib.pm
@@ -217,8 +217,7 @@ sub scanspooldir() {
                $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) {
@@ -397,7 +396,7 @@ sub check_worry {
 
        if ($status =~ m/^\[[^]]*I/ or
            $status =~ m/ \[[^]]*X/ or
-            ($status =~ m/ \[[^]]*[OSUE]/ and $status !~ m/ \[[^]]*T/)) {
+            $status !~ m/ \[[^]]*T/) {
                return 0;
        }
        return 1;