Adjust better to Getopt::Std oddnesses.
authorSteinar H. Gunderson <sesse@rietz>
Wed, 7 Mar 2007 18:36:59 +0000 (18:36 +0000)
committerSteinar H. Gunderson <sesse@rietz>
Wed, 7 Mar 2007 18:36:59 +0000 (18:36 +0000)
bugcounts
bugreport

index 6d93fa8..cf88096 100755 (executable)
--- a/bugcounts
+++ b/bugcounts
@@ -31,7 +31,7 @@ EOF
        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);
index 797e8d2..f6be50a 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) {
@@ -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);
@@ -216,12 +216,12 @@ scanlib::readstatus($statusfile);
 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) {
-       MakeBuglist 
+       MakeBuglist();
 }
 
 exit 0;