validator/httpd/cgi-bin check,1.720,1.721 sendfeedback.pl,1.13,1.14

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

Modified Files:
	check sendfeedback.pl 
Log Message:
Fix "Unconventional here-target" perltidy warnings.

Index: sendfeedback.pl
===================================================================
RCS file: /sources/public/validator/httpd/cgi-bin/sendfeedback.pl,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -d -r1.13 -r1.14
--- sendfeedback.pl	23 Nov 2009 22:15:18 -0000	1.13
+++ sendfeedback.pl	23 Nov 2009 22:24:15 -0000	1.14
@@ -55,11 +55,11 @@
         $CFG = \%cfg;
     };
     if ($@) {
-        die <<".EOF.";
+        die <<EOF;
 Could not read configuration.  Set the W3C_VALIDATOR_CFG environment variable
 or copy conf/* to /etc/w3c/. Make sure that the configuration file and all
 included files are readable by the web server user. The error was:\n'$@'
-.EOF.
+EOF
     }
 }    # end of BEGIN block.
 

Index: check
===================================================================
RCS file: /sources/public/validator/httpd/cgi-bin/check,v
retrieving revision 1.720
retrieving revision 1.721
diff -u -d -r1.720 -r1.721
--- check	23 Nov 2009 22:15:18 -0000	1.720
+++ check	23 Nov 2009 22:24:15 -0000	1.721
@@ -132,11 +132,11 @@
         $CFG = \%cfg;
     };
     if ($@) {
-        die <<".EOF.";
+        die <<EOF;
 Could not read configuration.  Set the W3C_VALIDATOR_CFG environment variable
 or copy conf/* to /etc/w3c/. Make sure that the configuration file and all
 included files are readable by the web server user. The error was:\n'$@'
-.EOF.
+EOF
     }
 
     #
@@ -146,13 +146,13 @@
         my %paths = map  { $_ => [-d $_, -r _] } @_;
         my @_d    = grep { not $paths{$_}->[0] } keys %paths;
         my @_r    = grep { not $paths{$_}->[1] } keys %paths;
-        return TRUE   if (scalar(@_d) + scalar(@_r) == 0);
-        die <<".EOF." if scalar @_d;
+        return TRUE if (scalar(@_d) + scalar(@_r) == 0);
+        die <<EOF   if scalar @_d;
 Does not exist or is not a directory: @_d
-.EOF.
-        die <<".EOF." if scalar @_r;
+EOF
+        die <<EOF if scalar @_r;
 Directory not readable (permission denied): @_r
-.EOF.
+EOF
     }
 
     #
@@ -1509,9 +1509,10 @@
         )
     {
 
-        my $default_doctype =
-            (&is_xml($File) ? $File->{"Default DOCTYPE"}->{"XHTML"} :
-                $File->{"Default DOCTYPE"}->{"HTML"});
+        my $default_doctype = (
+            &is_xml($File) ? $File->{"Default DOCTYPE"}->{"XHTML"} :
+                $File->{"Default DOCTYPE"}->{"HTML"}
+        );
         $T->param(file_version => "$default_doctype");
     }
     else {
@@ -2910,7 +2911,8 @@
     }
     elsif (
         charset_not_equal($File->{Charset}->{HTTP}, $File->{Charset}->{META})
-        and not($File->{'Direct Input'}))
+        and
+        not($File->{'Direct Input'}))
     {
         &add_warning(
             'W19',
@@ -3422,9 +3424,10 @@
     # 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 = (
+                $is_xml ? $File->{"Default DOCTYPE"}->{"XHTML"} :
+                    $File->{"Default DOCTYPE"}->{"HTML"}
+            );
             W3C::Validator::MarkupValidator::add_warning('W09',
                 {W09_dtd => $dtd});
         }

Received on Monday, 23 November 2009 22:24:19 UTC