- From: Ville Skytta via cvs-syncmail <cvsmail@w3.org>
- Date: Wed, 25 Nov 2009 22:05:35 +0000
- To: www-validator-cvs@w3.org
Update of /sources/public/validator/httpd/cgi-bin
In directory hutz:/tmp/cvs-serv18216/httpd/cgi-bin
Modified Files:
check
Log Message:
Fix local variable initializations flagged by perlcritic.
Index: check
===================================================================
RCS file: /sources/public/validator/httpd/cgi-bin/check,v
retrieving revision 1.734
retrieving revision 1.735
diff -u -d -r1.734 -r1.735
--- check 25 Nov 2009 20:24:06 -0000 1.734
+++ check 25 Nov 2009 22:05:33 -0000 1.735
@@ -217,7 +217,7 @@
)->getall();
eval {
- local $SIG{__DIE__};
+ local $SIG{__DIE__} = undef;
require Encode::JIS2K; # for optional extra Japanese encodings
};
@@ -896,7 +896,7 @@
## if invalid content, AND if requested, pass through tidy
if (!$File->{'Is Valid'} && $File->{Opt}->{'Show Tidy'}) {
eval {
- local $SIG{__DIE__};
+ local $SIG{__DIE__} = undef;
require HTML::Tidy;
my $tidy = HTML::Tidy->new({config_file => $CFG->{Paths}->{TidyConf}});
my $cleaned = $tidy->clean(join("\n", @{$File->{Content}}));
@@ -1731,7 +1731,7 @@
# All Apache configurations don't set HTTP_AUTHORIZATION for CGI scripts.
# If we're under mod_perl, there is a way around it...
eval {
- local $SIG{__DIE__};
+ local $SIG{__DIE__} = undef;
my $auth =
Apache2::RequestUtil->request()->headers_in()->{Authorization};
$ENV{HTTP_AUTHORIZATION} = $auth if $auth;
Received on Wednesday, 25 November 2009 22:05:44 UTC