perl/modules/W3C/XHTML/HTMLCompatChecker/bin appCcheck.pl,1.39,1.40

Update of /sources/public/perl/modules/W3C/XHTML/HTMLCompatChecker/bin
In directory hutz:/tmp/cvs-serv6835

Modified Files:
	appCcheck.pl 
Log Message:
fixing (again!) cases of appc checker producing observations on 
documents other than XHTML 1.0 served as text/html.

see e.g http://www.w3.org/Bugs/Public/show_bug.cgi?id=3814



Index: appCcheck.pl
===================================================================
RCS file: /sources/public/perl/modules/W3C/XHTML/HTMLCompatChecker/bin/appCcheck.pl,v
retrieving revision 1.39
retrieving revision 1.40
diff -u -d -r1.39 -r1.40
--- appCcheck.pl	5 Oct 2006 04:53:42 -0000	1.39
+++ appCcheck.pl	10 Oct 2006 08:10:06 -0000	1.40
@@ -320,7 +320,7 @@
 <p>The document is not served with a <code>text/html</code> media type (<TMPL_VAR NAME="content_type" ESCAPE="HTML">). HTML Compatibility guidelines checking does not apply.
 </TMPL_UNLESS>
 <TMPL_UNLESS NAME="is_relevant_doctype">
-The document does not appear to be XHTML 1.0. HTML Compatibility guidelines checking does not apply.
+<p>The document does not appear to be XHTML 1.0. HTML Compatibility guidelines checking does not apply.<p>
 </TMPL_UNLESS>
 </TMPL_IF>
 
@@ -504,7 +504,11 @@
                 $output->param(info_count => 1);
                 $output->param(wf_errors => $wf_errors);      
         }
-        else # woot, WF
+        elsif ((not $IS_RELEVANT_CT) or (not $IS_RELEVANT_DOC)) # not relevant to this checker
+        {
+            #pass 
+        }
+        else # woot, Well-formed, and relevant. Let's get to work.
         {
             my $p = XML::Parser->new;
             $p->setHandlers(Char    => \&_char,

Received on Tuesday, 10 October 2006 08:10:20 UTC