validator/httpd/cgi-bin check,1.721,1.722

Update of /sources/public/validator/httpd/cgi-bin
In directory hutz:/tmp/cvs-serv14017/httpd/cgi-bin

Modified Files:
	check 
Log Message:
Trivial cleanups.

Index: check
===================================================================
RCS file: /sources/public/validator/httpd/cgi-bin/check,v
retrieving revision 1.721
retrieving revision 1.722
diff -u -d -r1.721 -r1.722
--- check	23 Nov 2009 22:24:15 -0000	1.721
+++ check	23 Nov 2009 22:32:49 -0000	1.722
@@ -1509,10 +1509,8 @@
         )
     {
 
-        my $default_doctype = (
-            &is_xml($File) ? $File->{"Default DOCTYPE"}->{"XHTML"} :
-                $File->{"Default DOCTYPE"}->{"HTML"}
-        );
+        my $default_doctype =
+            $File->{"Default DOCTYPE"}->{&is_xml($File) ? "XHTML" : "HTML"};
         $T->param(file_version => "$default_doctype");
     }
     else {
@@ -3424,10 +3422,7 @@
     # No DOCTYPE found! We are falling back to vanilla DTD
     if ($err->{msg} =~ m(prolog can\'t be omitted)) {
         if (lc($File->{Root}) eq 'html') {
-            my $dtd = (
-                $is_xml ? $File->{"Default DOCTYPE"}->{"XHTML"} :
-                    $File->{"Default DOCTYPE"}->{"HTML"}
-            );
+            my $dtd = $File->{"Default DOCTYPE"}->{$is_xml ? "XHTML" : "HTML"};
             W3C::Validator::MarkupValidator::add_warning('W09',
                 {W09_dtd => $dtd});
         }

Received on Monday, 23 November 2009 22:33:00 UTC