- From: Ville Skytta via cvs-syncmail <cvsmail@w3.org>
- Date: Sun, 19 Apr 2009 09:58:27 +0000
- To: www-validator-cvs@w3.org
Update of /sources/public/perl/modules/W3C/LinkChecker/bin
In directory hutz:/tmp/cvs-serv14186/bin
Modified Files:
checklink
Log Message:
Take care of PERL5LIB in taint mode ourselves instead of using perl5lib; perl5lib can itself be in PERL5LIB outside default @INC.
Index: checklink
===================================================================
RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v
retrieving revision 4.154
retrieving revision 4.155
diff -u -d -r4.154 -r4.155
--- checklink 28 Mar 2009 13:50:42 -0000 4.154
+++ checklink 19 Apr 2009 09:58:25 -0000 4.155
@@ -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}) : ();
# -----------------------------------------------------------------------------
Received on Sunday, 19 April 2009 09:58:35 UTC