- From: Mercurial notifier <nobody@w3.org>
- Date: Thu, 05 Aug 2010 14:47:21 +0000
- To: link-checker updates <www-validator-cvs@w3.org>
changeset: 309:2cdfec0dc374 user: ville date: Sun Apr 19 09:58:25 2009 +0000 files: META.yml Makefile.PL bin/checklink docs/checklink.html description: Take care of PERL5LIB in taint mode ourselves instead of using perl5lib; perl5lib can itself be in PERL5LIB outside default @INC. diff -r afd26ce083ab -r 2cdfec0dc374 META.yml --- a/META.yml Sat Mar 28 14:04:40 2009 +0000 +++ b/META.yml Sun Apr 19 09:58:25 2009 +0000 @@ -24,7 +24,6 @@ LWP::UserAgent: 0 Net::hostent: 0 Net::IP: 0 - perl5lib: 0 Socket: 0 Term::ReadKey: 2 Test::More: 0 diff -r afd26ce083ab -r 2cdfec0dc374 Makefile.PL --- a/Makefile.PL Sat Mar 28 14:04:40 2009 +0000 +++ b/Makefile.PL Sun Apr 19 09:58:25 2009 +0000 @@ -15,7 +15,6 @@ HTTP::Response => 1.50, LWP::RobotUA => 1.19, LWP::UserAgent => 0, - perl5lib => 0, Time::HiRes => 0, URI => 1.31, URI::Escape => 0, diff -r afd26ce083ab -r 2cdfec0dc374 bin/checklink --- a/bin/checklink Sat Mar 28 14:04:40 2009 +0000 +++ b/bin/checklink Sun Apr 19 09:58:25 2009 +0000 @@ -5,7 +5,7 @@ # (c) 1999-2009 World Wide Web Consortium # based on Renaud Bruyeron's checklink.pl # -# $Id: checklink,v 4.154 2009-03-28 13:50:42 ville Exp $ +# $Id: checklink,v 4.155 2009-04-19 09:58:25 ville Exp $ # # This program is licensed under the W3C(r) Software License: # http://www.w3.org/Consortium/Legal/copyright-software @@ -29,14 +29,12 @@ delete(@ENV{qw(IFS CDPATH ENV BASH_ENV)}); $ENV{PATH} = ''; # undef would output warnings with Perl 5.6.1's Cwd.pm. -# ...but we want PERL5LIB honored even in taint mode, see perlsec, perl5lib, +# ...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 -BEGIN { - # undefinedness and "v-string in use/require non-portable" warnings with - # perl5lib 1.02 and perl 5.10.0, rt.cpan.org #43446, #43447 - local $^W = 0; - require perl5lib; -} +use Config qw(%Config); +use lib map { /(.*)/ } + defined($ENV{PERL5LIB}) ? split(/$Config{path_sep}/, $ENV{PERL5LIB}) : + defined($ENV{PERLLIB}) ? split(/$Config{path_sep}/, $ENV{PERLLIB}) : (); # ----------------------------------------------------------------------------- @@ -277,7 +275,7 @@ $PROGRAM = 'W3C-checklink'; $VERSION = '4.5'; $REVISION = sprintf('version %s (c) 1999-2009 W3C', $VERSION); - my ($cvsver) = q$Revision: 4.154 $ =~ /(\d+[\d\.]*\.\d+)/; + my ($cvsver) = q$Revision: 4.155 $ =~ /(\d+[\d\.]*\.\d+)/; $AGENT = sprintf('%s/%s [%s] %s', $PROGRAM, $VERSION, $cvsver, (W3C::UserAgent::USE_ROBOT_UA diff -r afd26ce083ab -r 2cdfec0dc374 docs/checklink.html --- a/docs/checklink.html Sat Mar 28 14:04:40 2009 +0000 +++ b/docs/checklink.html Sun Apr 19 09:58:25 2009 +0000 @@ -6,7 +6,7 @@ <title>W3C Link Checker Documentation</title> <link rev="made" href="mailto:www-validator@w3.org" /> <style type="text/css" media="all">@import "linkchecker.css";</style> - <meta name="revision" content="$Id: checklink.html,v 1.53 2009-03-23 21:37:27 ville Exp $" /> + <meta name="revision" content="$Id: checklink.html,v 1.54 2009-04-19 09:58:25 ville Exp $" /> </head> <body> @@ -151,7 +151,6 @@ <li><a href="http://search.cpan.org/dist/HTML-Parser/">HTML-Parser</a> (version 3.20 or newer)</li> <li><a href="http://search.cpan.org/dist/libwww-perl/">libwww-perl</a> (version 5.802 or newer)</li> <li><a href="http://search.cpan.org/dist/Net-IP/">Net-IP</a> (optional but recommended; required for restricting access to <a href="http://www.ietf.org/rfc/rfc1918.txt">private IP addresses</a>)</li> - <li><a href="http://search.cpan.org/dist/perl5lib/">perl5lib</a></li> <li><a href="http://search.cpan.org/dist/TermReadKey/">TermReadKey</a> (optional but recommended; required only in command line mode for password input)</li> <li><a href="http://search.cpan.org/dist/Time-HiRes/">Time-HiRes</a></li> <li><a href="http://search.cpan.org/dist/URI/">URI</a> (version 1.31 or newer)</li> @@ -307,7 +306,7 @@ <address> <a title="Send Feedback for the W3C Link Checker" href="http://validator.w3.org/feedback.html">The W3C Validator Team</a><br /> - $Date: 2009-03-23 21:37:27 $ + $Date: 2009-04-19 09:58:25 $ </address> <p class="copyright"> <a rel="Copyright" href="http://www.w3.org/Consortium/Legal/ipr-notice#Copyright">Copyright</a> © 1994-2009
Received on Thursday, 5 August 2010 14:47:39 UTC