diff options
| author | ville <ville@localhost> | 2009-12-14 22:51:18 +0000 |
|---|---|---|
| committer | ville <ville@localhost> | 2009-12-14 22:51:18 +0000 |
| commit | 010b2f43aa5c864f568bd5d014946064263292b5 (patch) | |
| tree | 88d7af0d08866c1f70b709b4972d616421a4ea95 | |
| parent | 5c00028a450c2cd05015ff3131ea9733d5e88681 (diff) | |
| download | markup-validator-010b2f43aa5c864f568bd5d014946064263292b5.zip markup-validator-010b2f43aa5c864f568bd5d014946064263292b5.tar.gz markup-validator-010b2f43aa5c864f568bd5d014946064263292b5.tar.bz2 | |
Fix infinite loop introduced in revision 1.756.
| -rwxr-xr-x | httpd/cgi-bin/check | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/httpd/cgi-bin/check b/httpd/cgi-bin/check index c401267..e05ed47 100755 --- a/httpd/cgi-bin/check +++ b/httpd/cgi-bin/check @@ -14,7 +14,7 @@ # This source code is available under the license at: # http://www.w3.org/Consortium/Legal/copyright-software # -# $Id: check,v 1.757 2009-12-14 22:39:18 ville Exp $ +# $Id: check,v 1.758 2009-12-14 22:51:18 ville Exp $ # # We need Perl 5.8.0+. @@ -197,7 +197,7 @@ EOF # # Strings - $VERSION = q$Revision: 1.757 $; + $VERSION = q$Revision: 1.758 $; $VERSION =~ s/Revision: ([\d\.]+) /$1/; # Read friendly error message file @@ -660,6 +660,8 @@ if (&is_xml($File)) { $err->{type} = "E"; $err->{msg} = $err_obj->message(); + $err_obj = $err_obj->_prev(); + # The validator will sometimes fail to dereference entities # files; we're filtering the resulting bogus error for # non-standalone documents. @@@TODO: is this still needed? @@ -672,7 +674,6 @@ if (&is_xml($File)) { unshift(@xmlwf_error_list, $err); $num_xmlwf_error++; - $err_obj = $err_obj->_prev(); } } elsif ($@) { |