summaryrefslogtreecommitdiffstats
path: root/perl-install/ftp.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2001-02-07 10:45:52 +0000
committerFrancois Pons <fpons@mandriva.com>2001-02-07 10:45:52 +0000
commitf178a0b654b57e5eb443cee76cd3170bfef0bc4a (patch)
tree1944cce64b66995308b00fc7510fac62b6198e4e /perl-install/ftp.pm
parentd8ec21bed269b44c6ec416ebbbe2f43464d48d50 (diff)
downloaddrakx-f178a0b654b57e5eb443cee76cd3170bfef0bc4a.tar
drakx-f178a0b654b57e5eb443cee76cd3170bfef0bc4a.tar.gz
drakx-f178a0b654b57e5eb443cee76cd3170bfef0bc4a.tar.bz2
drakx-f178a0b654b57e5eb443cee76cd3170bfef0bc4a.tar.xz
drakx-f178a0b654b57e5eb443cee76cd3170bfef0bc4a.zip
now fully fixed ftp connection (and http too) caused by forked DrakX
with latent ftp connection.
Diffstat (limited to 'perl-install/ftp.pm')
-rw-r--r--perl-install/ftp.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/ftp.pm b/perl-install/ftp.pm
index b21058c30..7784bb529 100644
--- a/perl-install/ftp.pm
+++ b/perl-install/ftp.pm
@@ -50,14 +50,14 @@ sub new {
sub getFile {
my ($f, @para) = @_;
+ $f eq 'XXX' and rewindGetFile(), return; #- special case to force closing connection.
foreach (1..3) {
my ($ftp, $retr) = new(@para ? @para : fromEnv);
$$retr->close if $$retr;
- $f eq 'XXX' and return; #- special case to force closing connection on CD, really necessary here!
$$retr = $ftp->retr($f) and return $$retr;
rewindGetFile();
log::l("ftp get failed, sleeping before trying again");
- sleep 2;
+ sleep 1;
}
}