View | Details | Raw Unified | Return to bug 4837
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 
		      }

Return to bug 4837