summaryrefslogtreecommitdiffstats
path: root/perl-install/mirror.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/mirror.pm')
-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;