diff options
| -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; |