From 3600a1fd1e9398fad208e3e94c6def2a8e84314a Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 26 Mar 2000 21:30:07 +0000
Subject: no_comment

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

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

diff --git a/perl-install/ftp.pm b/perl-install/ftp.pm
index d1a7ac241..014fe7237 100644
--- a/perl-install/ftp.pm
+++ b/perl-install/ftp.pm
@@ -54,7 +54,8 @@ sub getFile {
     my $f = shift;
     my ($ftp, $retr) = new(@_ ? @_ : fromEnv);
     $$retr->close if $$retr;
-    $$retr = $ftp->retr(install_any::relGetFile($f));
+    $$retr   = $ftp->retr(install_any::relGetFile($f)) or rewindGetFile();
+    $$retr ||= $ftp->retr(install_any::relGetFile($f));    
 }
 
 sub rewindGetFile() {
-- 
cgit v1.2.1