This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update IPC-Cmd to CPAN version 0.96
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Mon, 8 Aug 2016 11:56:21 +0000 (12:56 +0100)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Mon, 8 Aug 2016 12:25:23 +0000 (13:25 +0100)
  [DELTA]

0.96 Thu Jul 28 11:17:12 BST 2016

  Bug fixes:
  * Require Module::Load::Conditional 0.66 to resolve
    CVE-2016-1238: avoid loading optional modules from default .

Porting/Maintainers.pl
cpan/IPC-Cmd/lib/IPC/Cmd.pm
t/porting/customized.dat

index 4e682d9..14254db 100755 (executable)
@@ -717,12 +717,8 @@ use File::Glob qw(:case);
     },
 
     'IPC::Cmd' => {
-        'DISTRIBUTION' => 'BINGOS/IPC-Cmd-0.94.tar.gz',
+        'DISTRIBUTION' => 'BINGOS/IPC-Cmd-0.96.tar.gz',
         'FILES'        => q[cpan/IPC-Cmd],
-        'CUSTOMIZED'   => [
-            # CVE-2016-1238
-            qw( lib/IPC/Cmd.pm )
-        ],
     },
 
     'IPC::SysV' => {
index 89943a8..c0e25a2 100644 (file)
@@ -18,7 +18,7 @@ BEGIN {
                         $HAVE_MONOTONIC
                     ];
 
-    $VERSION        = '0.94_01';
+    $VERSION        = '0.96';
     $VERBOSE        = 0;
     $DEBUG          = 0;
     $WARN           = 1;
@@ -60,6 +60,8 @@ use Text::ParseWords            ();             # import ONLY if needed!
 use Module::Load::Conditional   qw[can_load];
 use Locale::Maketext::Simple    Style => 'gettext';
 
+local $Module::Load::Conditional::FORCE_SAFE_INC = 1;
+
 =pod
 
 =head1 NAME
@@ -142,8 +144,6 @@ sub can_use_ipc_run     {
     return if IS_WIN98;
 
     ### if we don't have ipc::run, we obviously can't use it.
-    local @INC = @INC;
-    pop @INC if $INC[-1] eq '.';
     return unless can_load(
                         modules => { 'IPC::Run' => '0.55' },
                         verbose => ($WARN && $verbose),
@@ -171,8 +171,6 @@ sub can_use_ipc_open3   {
 
     ### IPC::Open3 works on every non-VMS platform, but it can't
     ### capture buffers on win32 :(
-    local @INC = @INC;
-    pop @INC if $INC[-1] eq '.';
     return unless can_load(
         modules => { map {$_ => '0.0'} qw|IPC::Open3 IO::Select Symbol| },
         verbose => ($WARN && $verbose),
index 5e884d3..108e544 100644 (file)
@@ -48,7 +48,6 @@ IO-Compress cpan/IO-Compress/lib/IO/Uncompress/Gunzip.pm 7490524bf3714621bb32925
 IO-Compress cpan/IO-Compress/lib/IO/Uncompress/Inflate.pm c75aa1ec1f2a6138ef9ae660771fb2cac8be6931
 IO-Compress cpan/IO-Compress/lib/IO/Uncompress/RawInflate.pm 8f30a77bcda7123300ef5a8d02c2160ebb72f013
 IO-Compress cpan/IO-Compress/lib/IO/Uncompress/Unzip.pm 321a55011a1f11fe73b005e33942eb27fed6d046
-IPC::Cmd cpan/IPC-Cmd/lib/IPC/Cmd.pm 6febe21e35afa2a31101e7a686c97c36dc1a843d
 JSON::PP cpan/JSON-PP/bin/json_pp a7b8de6c201ef177ee82624ee4ca6a47cc1a3b4f
 JSON::PP cpan/JSON-PP/lib/JSON/PP.pm c8762a306740d0b32c099faf7118f2c1a391d9db
 Locale::Maketext::Simple cpan/Locale-Maketext-Simple/lib/Locale/Maketext/Simple.pm 57ed38905791a17c150210cd6f42ead22a7707b6