|
 |
6d4f13 |
From 582ed99d657fb10750e31e942f88b6ddc0259e01 Mon Sep 17 00:00:00 2001
|
|
|
6d4f13 |
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
|
|
|
6d4f13 |
Date: Wed, 10 May 2017 16:44:06 +0200
|
|
|
6d4f13 |
Subject: [PATCH] Rebase to 2.18 from perl-5.25.12
|
|
|
6d4f13 |
MIME-Version: 1.0
|
|
|
6d4f13 |
Content-Type: text/plain; charset=UTF-8
|
|
|
6d4f13 |
Content-Transfer-Encoding: 8bit
|
|
|
6d4f13 |
|
|
|
6d4f13 |
Signed-off-by: Petr Písař <ppisar@redhat.com>
|
|
|
6d4f13 |
---
|
|
|
6d4f13 |
lib/CPAN.pm | 2 +-
|
|
|
6d4f13 |
lib/CPAN/Bundle.pm | 7 ++++++-
|
|
|
6d4f13 |
lib/CPAN/Distribution.pm | 8 +++++++-
|
|
|
6d4f13 |
3 files changed, 14 insertions(+), 3 deletions(-)
|
|
|
6d4f13 |
|
|
|
6d4f13 |
diff --git a/lib/CPAN.pm b/lib/CPAN.pm
|
|
|
6d4f13 |
index 1fba5c1..4f02850 100644
|
|
|
6d4f13 |
--- a/lib/CPAN.pm
|
|
|
6d4f13 |
+++ b/lib/CPAN.pm
|
|
|
6d4f13 |
@@ -2,7 +2,7 @@
|
|
|
6d4f13 |
# vim: ts=4 sts=4 sw=4:
|
|
|
6d4f13 |
use strict;
|
|
|
6d4f13 |
package CPAN;
|
|
|
6d4f13 |
-$CPAN::VERSION = '2.16';
|
|
|
6d4f13 |
+$CPAN::VERSION = '2.18';
|
|
|
6d4f13 |
$CPAN::VERSION =~ s/_//;
|
|
|
6d4f13 |
|
|
|
6d4f13 |
# we need to run chdir all over and we would get at wrong libraries
|
|
|
6d4f13 |
diff --git a/lib/CPAN/Bundle.pm b/lib/CPAN/Bundle.pm
|
|
|
6d4f13 |
index 3f17b54..3b4e93d 100644
|
|
|
6d4f13 |
--- a/lib/CPAN/Bundle.pm
|
|
|
6d4f13 |
+++ b/lib/CPAN/Bundle.pm
|
|
|
6d4f13 |
@@ -8,7 +8,7 @@ use CPAN::Module;
|
|
|
6d4f13 |
use vars qw(
|
|
|
6d4f13 |
$VERSION
|
|
|
6d4f13 |
);
|
|
|
6d4f13 |
-$VERSION = "5.5002";
|
|
|
6d4f13 |
+$VERSION = "5.5003";
|
|
|
6d4f13 |
|
|
|
6d4f13 |
sub look {
|
|
|
6d4f13 |
my $self = shift;
|
|
|
6d4f13 |
@@ -21,6 +21,11 @@ sub undelay {
|
|
|
6d4f13 |
delete $self->{later};
|
|
|
6d4f13 |
for my $c ( $self->contains ) {
|
|
|
6d4f13 |
my $obj = CPAN::Shell->expandany($c) or next;
|
|
|
6d4f13 |
+ if ($obj->id eq $self->id){
|
|
|
6d4f13 |
+ my $id = $obj->id;
|
|
|
6d4f13 |
+ $CPAN::Frontend->mywarn("$id seems to contain itself, skipping\n");
|
|
|
6d4f13 |
+ next;
|
|
|
6d4f13 |
+ }
|
|
|
6d4f13 |
$obj->undelay;
|
|
|
6d4f13 |
}
|
|
|
6d4f13 |
}
|
|
|
6d4f13 |
diff --git a/lib/CPAN/Distribution.pm b/lib/CPAN/Distribution.pm
|
|
|
6d4f13 |
index b5744fd..64976eb 100644
|
|
|
6d4f13 |
--- a/lib/CPAN/Distribution.pm
|
|
|
6d4f13 |
+++ b/lib/CPAN/Distribution.pm
|
|
|
6d4f13 |
@@ -8,7 +8,7 @@ use CPAN::InfoObj;
|
|
|
6d4f13 |
use File::Path ();
|
|
|
6d4f13 |
@CPAN::Distribution::ISA = qw(CPAN::InfoObj);
|
|
|
6d4f13 |
use vars qw($VERSION);
|
|
|
6d4f13 |
-$VERSION = "2.16";
|
|
|
6d4f13 |
+$VERSION = "2.18";
|
|
|
6d4f13 |
|
|
|
6d4f13 |
# no prepare, because prepare is not a command on the shell command line
|
|
|
6d4f13 |
# TODO: clear instance cache on reload
|
|
|
6d4f13 |
@@ -377,6 +377,7 @@ sub get {
|
|
|
6d4f13 |
? $ENV{PERL5LIB}
|
|
|
6d4f13 |
: ($ENV{PERLLIB} || "");
|
|
|
6d4f13 |
local $ENV{PERL5OPT} = defined $ENV{PERL5OPT} ? $ENV{PERL5OPT} : "";
|
|
|
6d4f13 |
+ # local $ENV{PERL_USE_UNSAFE_INC} = exists $ENV{PERL_USE_UNSAFE_INC} ? $ENV{PERL_USE_UNSAFE_INC} : 1; # get
|
|
|
6d4f13 |
$CPAN::META->set_perl5lib;
|
|
|
6d4f13 |
local $ENV{MAKEFLAGS}; # protect us from outer make calls
|
|
|
6d4f13 |
|
|
|
6d4f13 |
@@ -1302,6 +1303,7 @@ Could not determine which directory to use for looking at $dist.
|
|
|
6d4f13 |
: ($ENV{PERLLIB} || "");
|
|
|
6d4f13 |
|
|
|
6d4f13 |
local $ENV{PERL5OPT} = defined $ENV{PERL5OPT} ? $ENV{PERL5OPT} : "";
|
|
|
6d4f13 |
+ # local $ENV{PERL_USE_UNSAFE_INC} = exists $ENV{PERL_USE_UNSAFE_INC} ? $ENV{PERL_USE_UNSAFE_INC} : 1; # look
|
|
|
6d4f13 |
$CPAN::META->set_perl5lib;
|
|
|
6d4f13 |
local $ENV{MAKEFLAGS}; # protect us from outer make calls
|
|
|
6d4f13 |
|
|
|
6d4f13 |
@@ -1821,6 +1823,7 @@ sub prepare {
|
|
|
6d4f13 |
? $ENV{PERL5LIB}
|
|
|
6d4f13 |
: ($ENV{PERLLIB} || "");
|
|
|
6d4f13 |
local $ENV{PERL5OPT} = defined $ENV{PERL5OPT} ? $ENV{PERL5OPT} : "";
|
|
|
6d4f13 |
+ local $ENV{PERL_USE_UNSAFE_INC} = exists $ENV{PERL_USE_UNSAFE_INC} ? $ENV{PERL_USE_UNSAFE_INC} : 1; # prepare
|
|
|
6d4f13 |
$CPAN::META->set_perl5lib;
|
|
|
6d4f13 |
local $ENV{MAKEFLAGS}; # protect us from outer make calls
|
|
|
6d4f13 |
|
|
|
6d4f13 |
@@ -2115,6 +2118,7 @@ is part of the perl-%s distribution. To install that, you need to run
|
|
|
6d4f13 |
? $ENV{PERL5LIB}
|
|
|
6d4f13 |
: ($ENV{PERLLIB} || "");
|
|
|
6d4f13 |
local $ENV{PERL5OPT} = defined $ENV{PERL5OPT} ? $ENV{PERL5OPT} : "";
|
|
|
6d4f13 |
+ local $ENV{PERL_USE_UNSAFE_INC} = exists $ENV{PERL_USE_UNSAFE_INC} ? $ENV{PERL_USE_UNSAFE_INC} : 1; # make
|
|
|
6d4f13 |
$CPAN::META->set_perl5lib;
|
|
|
6d4f13 |
local $ENV{MAKEFLAGS}; # protect us from outer make calls
|
|
|
6d4f13 |
|
|
|
6d4f13 |
@@ -3482,6 +3486,7 @@ sub test {
|
|
|
6d4f13 |
: ($ENV{PERLLIB} || "");
|
|
|
6d4f13 |
|
|
|
6d4f13 |
local $ENV{PERL5OPT} = defined $ENV{PERL5OPT} ? $ENV{PERL5OPT} : "";
|
|
|
6d4f13 |
+ local $ENV{PERL_USE_UNSAFE_INC} = exists $ENV{PERL_USE_UNSAFE_INC} ? $ENV{PERL_USE_UNSAFE_INC} : 1; # test
|
|
|
6d4f13 |
$CPAN::META->set_perl5lib;
|
|
|
6d4f13 |
local $ENV{MAKEFLAGS}; # protect us from outer make calls
|
|
|
6d4f13 |
local $ENV{PERL_MM_USE_DEFAULT} = 1 if $CPAN::Config->{use_prompt_default};
|
|
|
6d4f13 |
@@ -3955,6 +3960,7 @@ sub install {
|
|
|
6d4f13 |
: ($ENV{PERLLIB} || "");
|
|
|
6d4f13 |
|
|
|
6d4f13 |
local $ENV{PERL5OPT} = defined $ENV{PERL5OPT} ? $ENV{PERL5OPT} : "";
|
|
|
6d4f13 |
+ local $ENV{PERL_USE_UNSAFE_INC} = exists $ENV{PERL_USE_UNSAFE_INC} ? $ENV{PERL_USE_UNSAFE_INC} : 1; # install
|
|
|
6d4f13 |
$CPAN::META->set_perl5lib;
|
|
|
6d4f13 |
local $ENV{PERL_MM_USE_DEFAULT} = 1 if $CPAN::Config->{use_prompt_default};
|
|
|
6d4f13 |
local $ENV{NONINTERACTIVE_TESTING} = 1 if $CPAN::Config->{use_prompt_default};
|
|
|
6d4f13 |
--
|
|
|
6d4f13 |
2.9.3
|
|
|
6d4f13 |
|