From f7ddc4b81a37d3e6e4d4483c91c3a7891c2a37e1 Mon Sep 17 00:00:00 2001 From: cjwatson <> Date: Thu, 3 Oct 2002 10:55:36 -0800 Subject: [PATCH] [project @ 2002-10-03 11:55:36 by cjwatson] Squash a Perl warning. --- cgi/pkgreport.cgi | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/cgi/pkgreport.cgi b/cgi/pkgreport.cgi index 25002b03..5dc91a73 100755 --- 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 "

You might like to refer to the %s package page", urlsanit("http://${debbugs::gPackagePages}/$pkg"), htmlsanit("$pkg"); if ($pkgsrc{ $pkg }) { printf ", or to the source package %s's bug page.

\n", srcurl($pkgsrc{$pkg}), htmlsanit($pkgsrc{$pkg}); -- 2.39.5