--- a/lib/LXR/Common.pm.orig	2012-03-10 22:34:11.000000000 +0400
+++ b/lib/LXR/Common.pm	2012-03-10 22:33:21.000000000 +0400
@@ -62,9 +62,9 @@
 our $identifier;
 our $HTTP;
 
-$wwwdebug = 0;
+my $wwwdebug = 0;
 
-$tmpcounter = 23;
+my $tmpcounter = 23;
 
 sub warning {
 	my $msg = shift;
@@ -111,7 +111,7 @@
 sub nonvarargs {
 	my @args;
 
-	foreach my $param (%{keys $HTTP->{'param'}}) {
+	foreach my $param (keys %{$HTTP->{'param'}}) {
 		next unless $param =~ m!^_!;
 		my $val = $HTTP->{'param'}->{$param};
 		if (length($val)) {