From: Steinar H. Gunderson <sesse@rietz>
Date: Wed, 7 Mar 2007 18:36:59 +0000 (+0000)
Subject: Adjust better to Getopt::Std oddnesses.
X-Git-Url: https://git.donarmstrong.com/?p=bugscan.git;a=commitdiff_plain;h=e23f39acb49098e01f20a8e6fdc9f68d296b45ed

Adjust better to Getopt::Std oddnesses.
---

diff --git a/bugcounts b/bugcounts
index 6d93fa8..cf88096 100755
--- 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);
diff --git a/bugreport b/bugreport
index 797e8d2..f6be50a 100755
--- 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;