diff options
| author | ville <ville@localhost> | 2009-11-24 18:58:59 +0000 |
|---|---|---|
| committer | ville <ville@localhost> | 2009-11-24 18:58:59 +0000 |
| commit | a0d3291a7ee90c37db171517f3151db20ee9735b (patch) | |
| tree | 1ae9c32ad405a755011eb2e16582ce8ece1cf270 /httpd | |
| parent | fa59ca83a3591ae2e036634088c70f56a60a4363 (diff) | |
| download | markup-validator-a0d3291a7ee90c37db171517f3151db20ee9735b.zip markup-validator-a0d3291a7ee90c37db171517f3151db20ee9735b.tar.gz markup-validator-a0d3291a7ee90c37db171517f3151db20ee9735b.tar.bz2 | |
Fix perlcritic "Heredoc terminator must be quoted" errors.
Diffstat (limited to 'httpd')
| -rwxr-xr-x | httpd/cgi-bin/check | 14 | ||||
| -rwxr-xr-x | httpd/cgi-bin/sendfeedback.pl | 4 |
2 files changed, 7 insertions, 11 deletions
diff --git a/httpd/cgi-bin/check b/httpd/cgi-bin/check index dee3e2a..97c7276 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.727 2009-11-24 18:53:34 ville Exp $ +# $Id: check,v 1.728 2009-11-24 18:58:59 ville Exp $ # # We need Perl 5.8.0+. @@ -133,7 +133,7 @@ BEGIN { $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'$@' @@ -148,12 +148,8 @@ EOF 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; -Does not exist or is not a directory: @_d -EOF - die <<EOF if scalar @_r; -Directory not readable (permission denied): @_r -EOF + die "Does not exist or is not a directory: @_d\n" if scalar(@_d); + die "Directory not readable (permission denied): @_r\n" if scalar(@_r); } # @@ -216,7 +212,7 @@ EOF # # Strings - $VERSION = q$Revision: 1.727 $; + $VERSION = q$Revision: 1.728 $; $VERSION =~ s/Revision: ([\d\.]+) /$1/; # diff --git a/httpd/cgi-bin/sendfeedback.pl b/httpd/cgi-bin/sendfeedback.pl index b8bb3fb..11f7120 100755 --- a/httpd/cgi-bin/sendfeedback.pl +++ b/httpd/cgi-bin/sendfeedback.pl @@ -1,7 +1,7 @@ #!/usr/bin/perl -T ## ## feedback generator for W3C Markup Validation Service -# # $Id: sendfeedback.pl,v 1.14 2009-11-23 22:24:15 ville Exp $ +# # $Id: sendfeedback.pl,v 1.15 2009-11-24 18:58:59 ville Exp $ ## Pragmas. use strict; @@ -55,7 +55,7 @@ BEGIN { $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'$@' |