perl/modules/W3C/LogValidator/lib/W3C/LogValidator Basic.pm,1.15,1.16

Update of /sources/public/perl/modules/W3C/LogValidator/lib/W3C/LogValidator
In directory hutz:/tmp/cvs-serv28952

Modified Files:
	Basic.pm 
Log Message:
The "plain" format does not have HTTP status codes. Making sure that 
such input formats do not break the Basic module.



Index: Basic.pm
===================================================================
RCS file: /sources/public/perl/modules/W3C/LogValidator/lib/W3C/LogValidator/Basic.pm,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -d -r1.15 -r1.16
--- Basic.pm	23 Jun 2006 03:53:38 -0000	1.15
+++ Basic.pm	4 Sep 2007 04:39:17 -0000	1.16
@@ -150,7 +150,7 @@
 		    push @result_tmp, "$uri";
 		    push @result, [@result_tmp];
 		}
-		elsif ($HTTPcodes{$uri} eq "200") 
+		elsif (($HTTPcodes{$uri} eq "200")  or (!$HTTPcodes{$uri} =~ /\d+/))
 		# should perhaps make a subroutine for that instead of DUPing code
 		{
 		    $census++;

Received on Tuesday, 4 September 2007 04:39:21 UTC