link-checker commit: Take care of PERL5LIB in taint mode ourselves instead of using perl5lib; perl5lib can itself be in PERL5LIB outside default @INC.

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> &copy; 1994-2009

Received on Thursday, 5 August 2010 14:47:39 UTC