From ec0acac98e4cec59984e1fcc03d24dfd2a755955 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 29 Dec 2000 00:22:22 +0000
Subject: (getFile): recall getFile after rewindGetFile

---
 perl-install/ftp.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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

diff --git a/perl-install/ftp.pm b/perl-install/ftp.pm
index b1910df13..669ed4fcb 100644
--- a/perl-install/ftp.pm
+++ b/perl-install/ftp.pm
@@ -57,10 +57,10 @@ sub new {
 }
 
 sub getFile {
-    my $f = shift;
-    my ($ftp, $retr) = new(@_ ? @_ : fromEnv);
+    my ($f, @para) = @_;
+    my ($ftp, $retr) = new(@para ? @para : fromEnv);
     $$retr->close if $$retr;
-    $$retr   = $ftp->retr($f) or rewindGetFile();
+    $$retr   = $ftp->retr($f) or do { rewindGetFile(); goto &getFile };
     $$retr ||= $ftp->retr($f);
 }
 
-- 
cgit v1.2.1