W3C home > Mailing lists > Public > www-validator-cvs@w3.org > May 2005

perl/modules/W3C/LogValidator/lib/W3C/LogValidator HTMLValidator.pm,1.19,1.20

From: Olivier Thereaux via cvs-syncmail <cvsmail@w3.org>
Date: Tue, 17 May 2005 07:00:13 +0000
To: www-validator-cvs@w3.org
Message-Id: <E1DXw3p-0007BR-6d@lionel-hutz.w3.org>

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

Modified Files:
	HTMLValidator.pm 
Log Message:
Fixing a bug where 40X (usually 403) resources would be marked invalid.


Index: HTMLValidator.pm
===================================================================
RCS file: /sources/public/perl/modules/W3C/LogValidator/lib/W3C/LogValidator/HTMLValidator.pm,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -d -r1.19 -r1.20
--- HTMLValidator.pm	12 Nov 2004 07:10:47 -0000	1.19
+++ HTMLValidator.pm	17 May 2005 07:00:10 -0000	1.20
@@ -262,6 +262,7 @@
 			if ( ($self->valid) and ($self->valid_err_num) ) # invalid doc
 #			if (1) # debug
 			{
+			    if ($self->valid =~ /Invalid/i){
 				my @result_tmp;
 				push @result_tmp, $total_census;
 				push @result_tmp, $hits{$uri_orig};
@@ -270,6 +271,7 @@
 				push @result, [@result_tmp];
 				$invalid_census++;
 				$last_invalid_position = $total_census;
+			    }
 			}
 			printf (" %s!", $self->valid) if ( ($verbose > 1) and (defined ($self->valid)));
 			print " Could not validate!" if (($verbose > 1) and(!defined ($self->valid)));
Received on Tuesday, 17 May 2005 18:43:22 UTC

This archive was generated by hypermail 2.4.0 : Friday, 17 January 2020 23:02:10 UTC