wwwnumber and wwwname take arguments; () is wrong.

[bugscan.git] / scanlib.pm

diff --git a/scanlib.pm b/scanlib.pm
index bb9d170e5d47b8357c5c93739b21afd664b8be5d..19fda963bf83e8ccd5a0e184d9cca54211893ec9 100644 (file)
--- a/scanlib.pm
+++ b/scanlib.pm
@@ -54,7 +54,7 @@ sub readmaintainers() {
 sub glob_compressed_fh {
     my ($fn) = @_;
     $fn = (grep { -f $_ } glob $fn)[0];
-    my $fh = IO::Uncopmress::AnyUncompress->new($fn) or
+    my $fh = IO::Uncompress::AnyUncompress->new($fn) or
         die "Unable to open $fn for reading: $!";
     return $fh;
 }
@@ -312,14 +312,14 @@ sub htmlsanit {
     return $in;
 }
 
-sub wwwnumber() {
+sub wwwnumber {
        my $number = shift;             # Number of bug to html-ize
 
        "<A HREF=\"http://bugs.debian.org/cgi-bin/bugreport.cgi?archive=no&amp;bug=" .
                urlsanit($number) . '">' . htmlsanit($number) . '</A>';
 }
 
-sub wwwname() {
+sub wwwname {
        my $name = shift;                       # Name of package
 
        "<A HREF=\"http://bugs.debian.org/cgi-bin/pkgreport.cgi?archive=no&amp;pkg=" .