summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-01-07 00:43:16 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-01-07 00:43:16 +0000
commite444134675cc55ed92b6b4bf78fc0b48a6b0803b (patch)
treefa8a7712ae87fdca227931d22ec09fa236b72245 /perl-install
parenta1b69cf20a8c8693530da4ebda227b8e010d5b1e (diff)
downloaddrakx-e444134675cc55ed92b6b4bf78fc0b48a6b0803b.tar
drakx-e444134675cc55ed92b6b4bf78fc0b48a6b0803b.tar.gz
drakx-e444134675cc55ed92b6b4bf78fc0b48a6b0803b.tar.bz2
drakx-e444134675cc55ed92b6b4bf78fc0b48a6b0803b.tar.xz
drakx-e444134675cc55ed92b6b4bf78fc0b48a6b0803b.zip
(getFile): make it work (it used to dead-loop when getFile'ing an non-existent
file, stressing the ftp server :-/ )
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ftp.pm4
1 files changed, 0 insertions, 4 deletions
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;