Update of /cvsroot/lxr/lxr/lib/LXR
In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv7815/lib/LXR
Modified Files:
Common.pm
Log Message:
Part I of the fix for Bug 2750080 (Running the Tests Outputs Warnings)
Index: Common.pm
===================================================================
RCS file: /cvsroot/lxr/lxr/lib/LXR/Common.pm,v
retrieving revision 1.59
retrieving revision 1.60
diff -u -d -r1.59 -r1.60
--- Common.pm 23 Mar 2009 16:43:08 -0000 1.59
+++ Common.pm 10 Apr 2009 20:13:31 -0000 1.60
@@ -397,7 +397,7 @@
my $time = $files->getfiletime($pathname, $release);
my $time2 = (stat($config->confpath))[9];
- $time = $time2 if $time2 > $time;
+ $time = $time2 if !defined $time or $time2 > $time;
# Remove this to see if we get a speed increase by not stating all
# the modules. Since for most sites the modules change rarely,
@@ -479,7 +479,8 @@
# We don't clean all the parameters here, as some scripts need extended characters
# e.g. regexp searching
- $HTTP->{'param'} = { map { http_wash($_) } $ENV{'QUERY_STRING'} =~ /([^;&=]+)(?:=([^;&]+)|)/g };
+ $HTTP->{'param'} = { map { http_wash($_) } $ENV{'QUERY_STRING'} =~ /([^;&=]+)(?:=([^;&]+)|)/g }
+ if defined $ENV{'QUERY_STRING'};
# But do clean up these
$HTTP->{'param'}->{'v'} ||= $HTTP->{'param'}->{'version'};
|
