- From: Olivier Thereaux via cvs-syncmail <cvsmail@w3.org>
- Date: Fri, 26 Aug 2005 03:58:53 +0000
- To: www-validator-cvs@w3.org
Update of /sources/public/perl/modules/W3C/LogValidator/lib/W3C
In directory hutz:/tmp/cvs-serv12810/lib/W3C
Modified Files:
LogValidator.pm
Log Message:
small bugfix for empty records
Index: LogValidator.pm
===================================================================
RCS file: /sources/public/perl/modules/W3C/LogValidator/lib/W3C/LogValidator.pm,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -d -r1.15 -r1.16
--- LogValidator.pm 17 May 2005 07:53:34 -0000 1.15
+++ LogValidator.pm 26 Aug 2005 03:58:51 -0000 1.16
@@ -134,6 +134,7 @@
if (@_)
{
my $uri = shift;
+ next unless defined($uri);
if ( exists($hits{$uri}) )
{
$hits{$uri} = $hits{$uri}+1;
@@ -207,7 +208,9 @@
if (@_)
{
my $tmp_uri = shift;
- return (!($tmp_uri =~ /\?/));
+ if (defined $tmp_uri) {
+ return (!($tmp_uri =~ /\?/))
+ }
}
}
Received on Friday, 26 August 2005 03:58:55 UTC