Adjust better to Getopt::Std oddnesses.

diff --git a/bugcounts b/bugcounts
index 6d93fa8b21193707997095a5d39bd126a659a92c..cf8809630e0fc77fa3bb4a31ae34bf297a90a58f 100755 (executable)
--- a/bugcounts
+++ b/bugcounts
@@ -31,7 +31,7 @@ EOF
        exit 0;
 }
 
        exit 0;
 }
 

-my ($opt_h,$opt_V,$opt_S,$opt_C);
+our ($opt_h,$opt_V,$opt_S,$opt_C);

 
 getopts('VhS:C:');
 ShowUsage if ($opt_h);
 
 getopts('VhS:C:');
 ShowUsage if ($opt_h);

diff --git a/bugreport b/bugreport
index 797e8d2345e49d2cb0719e32b6170e27b3c9eb0e..f6be50a60c198761dde79b126e90981cf1b43048 100755 (executable)
--- a/bugreport
+++ b/bugreport
@@ -188,7 +188,7 @@ sub MakeStatistics() {
 }
 
 
 }
 
 

-sub FilterPackages() {
+sub FilterPackages($) {

        my $filter = shift;             # Distribution we want to keep
 
        for my $p (sort keys %scanlib::packagelist) {
        my $filter = shift;             # Distribution we want to keep
 
        for my $p (sort keys %scanlib::packagelist) {


@@ -203,7 +203,7 @@ sub FilterBugs() {
        }
 }
 
        }
 }
 

-my ($opt_h,$opt_V,$opt_S,$opt_C,$opt_H,$opt_d,$opt_t,$opt_s,$opt_l);
+our ($opt_h,$opt_V,$opt_S,$opt_C,$opt_H,$opt_d,$opt_t,$opt_s,$opt_l);

 
 getopts('VhHlstd:S:C:');
 ShowUsage if ($opt_h);
 
 getopts('VhHlstd:S:C:');
 ShowUsage if ($opt_h);


@@ -216,12 +216,12 @@ scanlib::readstatus($statusfile);
 scanlib::readcomments($commentsfile);
 # scanlib::readNMUstatus($NMUfile);
 
 scanlib::readcomments($commentsfile);
 # scanlib::readNMUstatus($NMUfile);
 

-&FilterPackages($opt_d) if ($opt_d);
-&FilterBugs() if ($opt_t);
+FilterPackages($opt_d) if ($opt_d);
+FilterBugs() if ($opt_t);

 
 MakeStatistics if ($opt_s);
 if ($opt_l) {
 
 MakeStatistics if ($opt_s);
 if ($opt_l) {

-       MakeBuglist 
+       MakeBuglist();

 }
 
 exit 0;
 }
 
 exit 0;