From 6ac6f9c8f4ac26addeb432091d8213a90cb5d108 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 8 Dec 2000 16:20:43 +0000
Subject: (new): retry in case of ftp connection/login

---
 perl-install/ftp.pm | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

(limited to 'perl-install/ftp.pm')

diff --git a/perl-install/ftp.pm b/perl-install/ftp.pm
index a82729c6e..b1910df13 100644
--- a/perl-install/ftp.pm
+++ b/perl-install/ftp.pm
@@ -38,8 +38,14 @@ sub new {
 	    $password = '-drakx@';
 	}
 
-	my $ftp = Net::FTP->new(network::resolv($host), %options) or die '';
-	$ftp->login($login, $password) or die '';
+	my $ftp;
+	while (1) {
+	    $ftp = Net::FTP->new(network::resolv($host), %options) or die;
+	    $ftp && $ftp->login($login, $password) and last;
+
+	    log::l("login failed, sleeping before trying again");
+	    sleep 10;
+	}
 	$ftp->binary;
 	$ftp->cwd($prefix);
 
-- 
cgit v1.2.1