- From: Ville Skytta via cvs-syncmail <cvsmail@w3.org>
- Date: Wed, 16 Dec 2009 19:04:59 +0000
- To: www-validator-cvs@w3.org
Update of /sources/public/perl/modules/W3C/LinkChecker/bin
In directory hutz:/tmp/cvs-serv31118/bin
Modified Files:
checklink
Log Message:
Initialize "local" variables as suggested by perlcritic.
Index: checklink
===================================================================
RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v
retrieving revision 4.174
retrieving revision 4.175
diff -u -d -r4.174 -r4.175
--- checklink 16 Dec 2009 19:02:32 -0000 4.174
+++ checklink 16 Dec 2009 19:04:57 -0000 4.175
@@ -292,7 +292,7 @@
# Pull in mod_perl modules if applicable.
eval {
- local $SIG{__DIE__};
+ local $SIG{__DIE__} = undef;
require Apache2::RequestUtil;
} if MP2();
@@ -608,7 +608,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;
} if (MP2() && !$ENV{HTTP_AUTHORIZATION});
@@ -852,7 +852,7 @@
sub ask_password ()
{
eval {
- local $SIG{__DIE__};
+ local $SIG{__DIE__} = undef;
require Term::ReadKey;
Term::ReadKey->require_version(2.00);
Term::ReadKey->import(qw(ReadMode));
@@ -1632,7 +1632,10 @@
sub new
{
my $p = HTML::Parser::new(@_, api_version => 3);
- eval { local $SIG{__DIE__}; $p->utf8_mode(1); };
+ eval {
+ local $SIG{__DIE__} = undef;
+ $p->utf8_mode(1);
+ };
# Start tags
$p->handler(start => 'start', 'self, tagname, attr, text, line');
Received on Wednesday, 16 December 2009 19:05:10 UTC