W3C home > Mailing lists > Public > www-validator-cvs@w3.org > November 2009

validator/httpd/cgi-bin check,1.734,1.735

From: Ville Skytta via cvs-syncmail <cvsmail@w3.org>
Date: Wed, 25 Nov 2009 22:05:35 +0000
To: www-validator-cvs@w3.org
Message-Id: <E1NDPzT-0004kB-N9@lionel-hutz.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

This archive was generated by hypermail 2.3.1 : Wednesday, 7 January 2015 15:17:40 UTC