X-Git-Url: https://git.donarmstrong.com/?p=bugscan.git;a=blobdiff_plain;f=bugscan;h=2bc7b4dbf141c351be0a5b76acb914ddd68be4ba;hp=5a297737149f3ff80c6f7694515c0b1fe0833650;hb=79a7d8380b9712a363a95e8998d6ba3e95ff581b;hpb=71e6cb7e3cc7f577df4b8b947b16477252c04dbd diff --git a/bugscan b/bugscan index 5a29773..2bc7b4d 100755 --- 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;