- From: Olivier Thereaux via cvs-syncmail <cvsmail@w3.org>
- Date: Tue, 17 May 2005 07:00:13 +0000
- To: www-validator-cvs@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