- From: Terje Bless <link@dev.w3.org>
- Date: Sun, 06 Feb 2005 03:47:41 +0000
- To: www-validator-cvs@w3.org
Update of /sources/public/validator/httpd/cgi-bin
In directory hutz:/tmp/cvs-serv10172/httpd/cgi-bin
Modified Files:
check
Log Message:
Remove (mostly) redundant copy of the ESIS, and normalize references to it.
Index: check
===================================================================
RCS file: /sources/public/validator/httpd/cgi-bin/check,v
retrieving revision 1.394
retrieving revision 1.395
diff -u -d -r1.394 -r1.395
--- check 6 Feb 2005 01:00:57 -0000 1.394
+++ check 6 Feb 2005 03:47:38 -0000 1.395
@@ -810,7 +810,6 @@
$File->{ESIS} = [];
my $elements_found = 0;
while (<$spout>) {
- push @{$File->{'DEBUG'}->{ESIS}}, $_;
$elements_found++ if /^\(/;
if (/^Axmlns() \w+ (.*)/ or /^Axmlns:([^ ]+) \w+ (.*)/) {
@@ -826,7 +825,7 @@
}
}
- next if / IMPLIED$/;
+ next if / IMPLIED$/ && not $DEBUG;;
next if /^ASDAFORM CDATA /;
next if /^ASDAPREF CDATA /;
chomp; # Removes trailing newlines
@@ -1665,7 +1664,7 @@
s/^\Q$CFG->{Paths}->{SGML}->{Parser}\E// if
$CFG->{Paths}->{SGML}->{Parser} =~ /:/;
- push @{$File->{'DEBUG'}->{Errors}}, $_;
+ push @{$File->{DEBUG}->{Errors}}, $_;
chomp;
my($err, @errors);
next if /^<OSFD>0:[0-9]+:[0-9]+:[^A-Z]/;
@@ -2095,7 +2094,7 @@
<h2><a name="raw_esis">Raw ESIS Output</a></h2>
<pre>
EOF
- for (@{shift->{'DEBUG'}->{ESIS}}) {
+ for (@{shift->{ESIS}}) {
s/\\012//g;
s/\\n/\n/g;
print ent $_;
@@ -2112,7 +2111,7 @@
<h2><a name="raw_errors">Raw Error Output</a></h2>
<pre>
EOF
- for (@{shift->{'DEBUG'}->{Errors}}) {print ent $_};
+ for (@{shift->{DEBUG}->{Errors}}) {print ent $_};
print " </pre>\n </div>";
}
Received on Sunday, 6 February 2005 03:47:41 UTC