--- perl-install.orig/proxy.pm	2004-07-19 15:58:31 +0400
+++ perl-install.orig/proxy.pm	2004-07-20 13:49:55 +0400
@@ -61,7 +61,7 @@ 
 		    { label => _("port"), val => \$proxy_cfg->{ftp_port} }
 		  ],
 		  complete => sub {
-		      if ($proxy_cfg->{ftp_url} && $proxy_cfg->{ftp_url} !~ /^ftp:/) {
+		      if ($proxy_cfg->{ftp_url} && $proxy_cfg->{ftp_url} !~ /^(ht|f)tp:/) {
 			  $in->ask_warn('', _("Url should begin with 'ftp:'"));
 			  return (1,0);
 		      }