- From: Ville Skytta via cvs-syncmail <cvsmail@w3.org>
- Date: Thu, 04 Feb 2010 19:15:49 +0000
- To: www-validator-cvs@w3.org
Update of /sources/public/perl/modules/W3C/LinkChecker/bin
In directory hutz:/tmp/cvs-serv13647/bin
Modified Files:
checklink
Log Message:
Require Perl >= 5.8.
Primarily for the previous change, but also because it's very likely that
the code wouldn't work on earlier versions any longer and I suppose there
is very little demand and testing resources available for earlier versions.
Index: checklink
===================================================================
RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v
retrieving revision 4.178
retrieving revision 4.179
diff -u -d -r4.178 -r4.179
--- checklink 4 Feb 2010 19:05:22 -0000 4.178
+++ checklink 4 Feb 2010 19:15:47 -0000 4.179
@@ -24,10 +24,11 @@
# http://lists.w3.org/Archives/Public/www-validator/ (archives)
use strict;
+use 5.008;
# Get rid of potentially unsafe and unneeded environment variables.
delete(@ENV{qw(IFS CDPATH ENV BASH_ENV)});
-$ENV{PATH} = ''; # undef would output warnings with Perl 5.6.1's Cwd.pm.
+$ENV{PATH} = undef;
# ...but we want PERL5?LIB honored even in taint mode, see perlsec, perl5lib,
# http://www.mail-archive.com/cpan-testers-discuss%40perl.org/msg01064.html
@@ -1637,10 +1638,7 @@
sub new
{
my $p = HTML::Parser::new(@_, api_version => 3);
- eval { # ...because utf8_mode is only available with Perl >= 5.8.
- local $SIG{__DIE__} = undef;
- $p->utf8_mode(1);
- };
+ $p->utf8_mode(1);
# Start tags
$p->handler(start => 'start', 'self, tagname, attr, text, line');
Received on Thursday, 4 February 2010 19:15:50 UTC