remove definnition for makestatistics; add missing ()

[bugscan.git] / bugreport

diff --git a/bugreport b/bugreport
index ff1b0c77c0cfc40ca966b43dc589b9b9e166f6fb..34ddb6e4643a9b463046ef35e5852d3f956644ba 100755 (executable)
--- a/bugreport
+++ b/bugreport
@@ -4,8 +4,10 @@
 # Generate a report of the release-critical bugs for packages
 
 use Getopt::Std;
-require scanlib;
-require bugcfg;
+use File::Basename;
+use lib dirname(__FILE__);
+use bugcfg;
+use scanlib;
 use strict;
 use warnings;
 
@@ -127,7 +129,7 @@ sub MakeBuglist() {
 }
 
 
-sub MakeStatistics() {
+sub MakeStatistics {
        my $bugcount=0;         # Total number of bugs so far
        my $patchtotal=0;       # Total number of bugs marked patch
        my $pendingtotal=0;     # Total number of bugs marked pending
@@ -210,7 +212,7 @@ FilterPackages($opt_d) if ($opt_d);
 FilterBugsStable() if ($opt_b);
 FilterBugs() if ($opt_t);
 
-MakeStatistics if ($opt_s);
+MakeStatistics() if ($opt_s);
 if ($opt_l) {
        MakeBuglist();
 }