diff options
| author | Martin Whitaker <mageia@martin-whitaker.me.uk> | 2022-11-20 16:14:57 +0000 |
|---|---|---|
| committer | Martin Whitaker <mageia@martin-whitaker.me.uk> | 2022-11-20 16:14:57 +0000 |
| commit | 67d6666b39c23d63408a39de6cba557bc88f4279 (patch) | |
| tree | 21b1da2be66259b5d13057f015ffa6fb4cbcafe0 /perl-install | |
| parent | 84ed108af4500508b3007b51cd31b520e2c39545 (diff) | |
| download | drakx-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.pm | 2 |
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; |