[Lxr-commits] CVS: lxr/lib/LXR Common.pm,1.59,1.60

[AdrianIssott <adr...@us...>]

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'};