Check that a package is really present in a distribution before putting
[bugscan.git] / bugscan
diff --git a/bugscan b/bugscan
index 5a29773..2bc7b4d 100755 (executable)
--- a/bugscan
+++ b/bugscan
@@ -3,17 +3,14 @@
 require bugcfg;
 require scanlib;
 use strict;
-use warnings;
+use warnings;
 
 # Main part
 
 scanlib::readpackages($bugcfg::debian_ftproot, "debian") if defined $bugcfg::debian_ftproot;
-scanlib::readpackages($bugcfg::nonUS_ftproot, "non-US")  if defined $bugcfg::nonUS_ftproot;
 scanlib::readsources($bugcfg::debian_ftproot, "debian")  if defined $bugcfg::debian_ftproot;
-scanlib::readsources($bugcfg::nonUS_ftproot, "non-US")   if defined $bugcfg::nonUS_ftproot;
 
 scanlib::readdebbugssources($bugcfg::debian_sources, "debian") if defined $bugcfg::debian_sources;
-scanlib::readdebbugssources($bugcfg::nonUS_sources, "non-US") if defined $bugcfg::nonUS_sources;
 
 
 scanlib::readpseudopackages();
@@ -27,10 +24,11 @@ for my $p (keys %scanlib::packagelist) {
        } else {
            $section = $scanlib::debbugssection{$p};
        }
-       print "$p $section $scanlib::maintainer{$p}";
-       for my $b (split(/ /, $scanlib::packagelist{$p})) {
+       print "$p $section $scanlib::maintainer{$p}\n";
+       for my $b (@{$scanlib::packagelist{$p}}) {
                print "$scanlib::bugs{$b}\n";
        }
+       print "\n";
 }
 
 exit 0;