[project @ 2002-10-03 11:55:36 by cjwatson]

Squash a Perl warning.

diff --git a/cgi/pkgreport.cgi b/cgi/pkgreport.cgi
index 25002b03780953d79a519eea1d9d057e8f7d8cd4..5dc91a736d649fbd70b17c1d2c982a4a71d35f76 100755 (executable)
--- a/cgi/pkgreport.cgi
+++ b/cgi/pkgreport.cgi
@@ -11,6 +11,8 @@ require './common.pl';
 require '/etc/debbugs/config';
 require '/etc/debbugs/text';
 
+use vars qw($gPackagePages $gWebDomain);
+
 nice(5);
 
 my %param = readparse();
@@ -196,7 +198,6 @@ if (defined $pkg || defined $src) {
        print ".\n";
     }
     if ($pkg) {
-       my $stupidperl = ${debbugs::gPackagePages};
        printf "<p>You might like to refer to the <a href=\"%s\">%s package page</a>", urlsanit("http://${debbugs::gPackagePages}/$pkg"), htmlsanit("$pkg");
        if ($pkgsrc{ $pkg }) {
            printf ", or to the source package <a href=\"%s\">%s</a>'s bug page.</p>\n", srcurl($pkgsrc{$pkg}), htmlsanit($pkgsrc{$pkg});