From 6d7e43b7b344bb699d8b4bf8582b8b95075aee9a Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 12 Aug 2002 15:16:17 +0000 Subject: allow ftp_proxy beginning with http: (thanks to Christophe Combelles) --- perl-install/proxy.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/proxy.pm') 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+$/) { -- cgit v1.2.1