From e444134675cc55ed92b6b4bf78fc0b48a6b0803b Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sun, 7 Jan 2001 00:43:16 +0000 Subject: (getFile): make it work (it used to dead-loop when getFile'ing an non-existent file, stressing the ftp server :-/ ) --- perl-install/ftp.pm | 4 ---- 1 file changed, 4 deletions(-) (limited to 'perl-install/ftp.pm') diff --git a/perl-install/ftp.pm b/perl-install/ftp.pm index 14ef68bf0..1c560fff7 100644 --- a/perl-install/ftp.pm +++ b/perl-install/ftp.pm @@ -27,12 +27,9 @@ sub fromEnv() { sub new { my ($host, $prefix, $login, $password) = @_; - log::l("ftp::new"); my @l = do { if ($hosts{"$host$prefix"}) { - log::l("ftp::new 1"); @{$hosts{"$host$prefix"}}; } else { - log::l("ftp::new 2"); my %options = (Passive => 1, Timeout => 60, Port => 21); $options{Firewall} = $ENV{PROXY} if $ENV{PROXY}; $options{Port} = $ENV{PROXYPORT} if $ENV{PROXYPORT}; @@ -43,7 +40,6 @@ sub new { my $ftp; while (1) { - log::l("ftp::new 3"); $ftp = Net::FTP->new(network::resolv($host), %options) or die; $ftp && $ftp->login($login, $password) and last; -- cgit v1.2.1