From 67d6666b39c23d63408a39de6cba557bc88f4279 Mon Sep 17 00:00:00 2001
From: Martin Whitaker <mageia@martin-whitaker.me.uk>
Date: Sun, 20 Nov 2022 16:14:57 +0000
Subject: Don't reject https URLs when fetching a mirror list.

---
 perl-install/mirror.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/mirror.pm b/perl-install/mirror.pm
index 7c4f5eb15..0e61bc174 100644
--- a/perl-install/mirror.pm
+++ b/perl-install/mirror.pm
@@ -110,7 +110,7 @@ sub list {
     }
 
 	my @mirrors = grep {
-	    ($_->{method}, $_->{host}, $_->{dir}) = $_->{url} =~ m!^(ftp|http)://(.*?)(/.*)!;
+	    ($_->{method}, $_->{host}, $_->{dir}) = $_->{url} =~ m!^(ftp|https?)://(.*?)(/.*)!;
 	    $_->{method} && (member($type, 'all', $_->{type}));
 	} @mirrors_raw or log::explanations("no mirrors of type $type"), return;
 
-- 
cgit v1.2.1