need LWP::Protocol::https with metacpan

miyagawa · Jan 2, 2017 · dced3f3 · dced3f3
1 parent 6f75b28
commit dced3f3
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/lib/App/cpanminus/script.pm b/lib/App/cpanminus/script.pm
@@ -2778,8 +2778,8 @@ sub file_mirror {
 }
 
 sub has_working_lwp {
-    my($self, $mirrors) = @_;
-    my $https = grep /^https:/, @$mirrors;
+    my($self, $mirrors, $https) = @_;
+    $https ||= grep /^https:/, @$mirrors;
     eval {
         require LWP::UserAgent; # no fatpack
         LWP::UserAgent->VERSION(5.802);
@@ -2798,7 +2798,7 @@ sub init_tools {
     }
 
     # use --no-lwp if they have a broken LWP, to upgrade LWP
-    if ($self->{try_lwp} && $self->has_working_lwp($self->{mirrors})) {
+    if ($self->{try_lwp} && $self->has_working_lwp($self->{mirrors}, $self->{metacpan})) {
         $self->chat("You have LWP $LWP::VERSION\n");
         my $ua = sub {
             LWP::UserAgent->new(