for the moment, just release cdrom.img, hd.img and hdreiser.img

others should should come...

1 files changed, 10 insertions, 4 deletions

diff --git a/perl-install/ftp.pm b/perl-install/ftp.pm
index 669ed4fcb..14ef68bf0 100644
--- a/perl-install/ftp.pm
+++ b/perl-install/ftp.pm
@@ -27,9 +27,12 @@ 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};
@@ -40,6 +43,7 @@ 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;
 
@@ -58,10 +62,12 @@ sub new {
 
 sub getFile {
     my ($f, @para) = @_;
-    my ($ftp, $retr) = new(@para ? @para : fromEnv);
-    $$retr->close if $$retr;
-    $$retr   = $ftp->retr($f) or do { rewindGetFile(); goto &getFile };
-    $$retr ||= $ftp->retr($f);
+    foreach (1..2) {
+	my ($ftp, $retr) = new(@para ? @para : fromEnv);
+	$$retr->close if $$retr;
+	$$retr = $ftp->retr($f) and return $$retr;
+	rewindGetFile();
+    }
 }
 
 #-sub closeFiles() {