blob: e5e74e21c31a6c6366ab0fce0caa3fa6f0e54054 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
--- 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)) {
|
