diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install_any.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index f76b8c235..dbb0a7a44 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -526,8 +526,7 @@ sub selectSupplMedia { if ($suppl_method eq 'http') { http::getFile("$url/media_info/hdlist.cz"); } elsif ($suppl_method eq 'ftp') { - my ($login, $pass, $host, $prefix) = $url =~ m!^ftp://(?:(.*?)(?::(.*?))?@)?([^/]+)/(.*)!; - ftp::getFile("media_info/hdlist.cz", $host, $prefix, $login, $pass); + getFile("media_info/hdlist.cz"); } else { undef } }; if (!defined $f) { |