W3C home > Mailing lists > Public > www-validator-cvs@w3.org > February 2010

perl/modules/W3C/LinkChecker/bin checklink,4.178,4.179

From: Ville Skytta via cvs-syncmail <cvsmail@w3.org>
Date: Thu, 04 Feb 2010 19:15:49 +0000
To: www-validator-cvs@w3.org
Message-Id: <E1Nd7B7-0003ZF-Ec@lionel-hutz.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

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