%exclude isn't used either, so drop it.

[bugscan.git] / scanlib.pm

diff --git a/scanlib.pm b/scanlib.pm
index c52291eb18cfa989b6bc9cbc0cae619f06a73dc7..a9c51964a91c3abdb9b6c9a1c03241124a6fc3be 100644 (file)
--- a/scanlib.pm
+++ b/scanlib.pm
@@ -6,8 +6,6 @@
 # which was based on an unknown other script.
 #
 # Global variables:
-#   %premature      - list of prematurely closed bugreports
-#   %exclude        - list of bugreports to exclude from the report
 #   %maintainer     - map from packagename to maintainer
 #   %section        - map from packagename to section in the FTP-site
 #   %packagelist    - map from packagename to bugreports
@@ -24,7 +22,7 @@ use warnings;
 require bugcfg;
 package scanlib;
 
-our (%premature,%exclude,%maintainer,%section,%packagelist,%debbugssection,%bugs);
+our (%maintainer,%section,%packagelist,%debbugssection,%bugs);
 
 
 # Read the list of maintainer 
@@ -153,8 +151,6 @@ sub scanspooldir() {
        closedir(DIR);
 
        for $f (@list) {
-               next if $exclude{$f};                   # Check the list of bugs to skip
-       
                my $bug = Debbugs::Status::read_bug(summary => "$f.summary");
                next if (!defined($bug));
                
@@ -220,8 +216,7 @@ sub scanspooldir() {
                                }
                        }
                        
-                       next if !$affects_any and not $premature{$f};
-                       $premature{$f}++ if !$affects_any;
+                       next if !$affects_any;
                }
 
                for my $keyword qw(pending patch help moreinfo unreproducible security upstream etch-ignore) {