From 3283593e6701012da131a4ed168cc9984e291662 Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Sun, 11 Mar 2001 23:49:51 +0000
Subject: do not retry on 550 file unavailable

---
 perl-install/ftp.pm | 1 +
 1 file changed, 1 insertion(+)

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

diff --git a/perl-install/ftp.pm b/perl-install/ftp.pm
index 06ae86c33..20b837b8c 100644
--- a/perl-install/ftp.pm
+++ b/perl-install/ftp.pm
@@ -55,6 +55,7 @@ sub getFile {
 	my ($ftp, $retr) = new(@para ? @para : fromEnv);
 	$$retr->close if $$retr;
 	$$retr = $ftp->retr($f) and return $$retr;
+	($ftp->code == 550) and log::l("FTP: 550 file unavailable"), return;
 	rewindGetFile();
 	log::l("ftp get failed, sleeping before trying again");
 	sleep 1;
-- 
cgit v1.2.1