Fix some warnings, and don't let (non-tagged) pseudopackages worry us for
authorSteinar H. Gunderson <sesse@rietz>
Sat, 10 Mar 2007 12:23:39 +0000 (12:23 +0000)
committerSteinar H. Gunderson <sesse@rietz>
Sat, 10 Mar 2007 12:23:39 +0000 (12:23 +0000)
testing.

scanlib.pm

index 83e4b60..dc4aac6 100644 (file)
@@ -217,8 +217,7 @@ sub scanspooldir() {
                $disttags{'experimental'} = grep(/^experimental$/, @tags);
                
                my $relinfo = "";
                $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) {
                        # 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
 
        if ($status =~ m/^\[[^]]*I/ or
            $status =~ m/ \[[^]]*X/ or
-            ($status =~ m/ \[[^]]*[OSUE]/ and $status !~ m/ \[[^]]*T/)) {
+            $status !~ m/ \[[^]]*T/) {
                return 0;
        }
        return 1;
                return 0;
        }
        return 1;