From dced3f30d37dba3f54b136f421de2bba3559b507 Mon Sep 17 00:00:00 2001
From: Graham Knop <haarg@haarg.org>
Date: Mon, 2 Jan 2017 16:59:12 -0500
Subject: [PATCH] need LWP::Protocol::https with metacpan

---
 lib/App/cpanminus/script.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/App/cpanminus/script.pm b/lib/App/cpanminus/script.pm
index e536351ee..bb92eb726 100644
--- 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(