- From: Ville Skytta via cvs-syncmail <cvsmail@w3.org>
- Date: Fri, 18 May 2007 10:54:40 +0000
- To: www-validator-cvs@w3.org
Update of /sources/public/validator/httpd/cgi-bin
In directory hutz:/tmp/cvs-serv26211
Modified Files:
check
Log Message:
Simplify xmlwf error list population.
Index: check
===================================================================
RCS file: /sources/public/validator/httpd/cgi-bin/check,v
retrieving revision 1.521
retrieving revision 1.522
diff -u -d -r1.521 -r1.522
--- check 18 May 2007 00:54:52 -0000 1.521
+++ check 18 May 2007 10:54:37 -0000 1.522
@@ -635,8 +635,6 @@
my $xmlwf_error_col = undef;
my $xmlwf_error_msg = undef;
my $num_xmlwf_error = 0;
- my $last_err_msg = undef;
- my $err;
foreach my $msg_line (split "\n", $xmlwf_errors){
$msg_line =~ s{[^\x0d\x0a](:\d+:)}{\n$1}g;
$msg_line =~ s{[^\x0d\x0a]+[\x0d\x0a]$}{};
@@ -668,6 +666,7 @@
}
if ((defined $xmlwf_error_line) and (defined $xmlwf_error_col) and (defined $xmlwf_error_msg)){
+ my $err;
$err->{src} = '...'; # do this with show_open_entities()?
$err->{line} = $xmlwf_error_line;
$err->{char} = $xmlwf_error_col;
@@ -676,9 +675,7 @@
$err->{msg} = $xmlwf_error_msg;
# ...
- $last_err_msg = $err;
push (@xmlwf_error_list, $err);
- $err = undef;
$xmlwf_error_line = undef;
$xmlwf_error_col = undef;
$xmlwf_error_msg = undef;
Received on Friday, 18 May 2007 10:55:01 UTC