diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/proxy.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/proxy.pm b/perl-install/proxy.pm index 72fd35664..c8fab5d90 100644 --- a/perl-install/proxy.pm +++ b/perl-install/proxy.pm @@ -61,8 +61,8 @@ sub main { { label => _("port"), val => \$proxy_cfg->{ftp_port} } ], complete => sub { - if ($proxy_cfg->{ftp_url} && $proxy_cfg->{ftp_url} !~ /^ftp:/) { - $in->ask_warn('', _("Url should begin with 'ftp:'")); + if ($proxy_cfg->{ftp_url} && $proxy_cfg->{ftp_url} !~ /^(ftp|http):/) { + $in->ask_warn('', _("Url should begin with 'ftp:' or 'http:'")); return (1,0); } if ($proxy_cfg->{ftp_port} && $proxy_cfg->{ftp_port} !~ /^\d+$/) { |