View | Details | Raw Unified
Collapse All | Expand All

(-)perl-install.orig/proxy.pm (-1 / +1 lines)
 Lines 61-67    Link Here 
61
		    { label => _("port"), val => \$proxy_cfg->{ftp_port} }
61
		    { label => _("port"), val => \$proxy_cfg->{ftp_port} }
62
		  ],
62
		  ],
63
		  complete => sub {
63
		  complete => sub {
64
		      if ($proxy_cfg->{ftp_url} && $proxy_cfg->{ftp_url} !~ /^ftp:/) {
64
		      if ($proxy_cfg->{ftp_url} && $proxy_cfg->{ftp_url} !~ /^(ht|f)tp:/) {
65
			  $in->ask_warn('', _("Url should begin with 'ftp:'"));
65
			  $in->ask_warn('', _("Url should begin with 'ftp:'"));
66
			  return (1,0);
66
			  return (1,0);
67
		      }
67
		      }