summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorMartin Whitaker <mageia@martin-whitaker.me.uk>2022-11-20 16:14:57 +0000
committerMartin Whitaker <mageia@martin-whitaker.me.uk>2022-11-20 16:14:57 +0000
commit67d6666b39c23d63408a39de6cba557bc88f4279 (patch)
tree21b1da2be66259b5d13057f015ffa6fb4cbcafe0 /perl-install
parent84ed108af4500508b3007b51cd31b520e2c39545 (diff)
downloaddrakx-67d6666b39c23d63408a39de6cba557bc88f4279.tar
drakx-67d6666b39c23d63408a39de6cba557bc88f4279.tar.gz
drakx-67d6666b39c23d63408a39de6cba557bc88f4279.tar.bz2
drakx-67d6666b39c23d63408a39de6cba557bc88f4279.tar.xz
drakx-67d6666b39c23d63408a39de6cba557bc88f4279.zip
Don't reject https URLs when fetching a mirror list.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/mirror.pm2
1 files changed, 1 insertions, 1 deletions
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;