summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-12-29 00:22:22 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-12-29 00:22:22 +0000
commitec0acac98e4cec59984e1fcc03d24dfd2a755955 (patch)
tree92dee6b065143fc0300acff4b54f7a67bfd80950 /perl-install
parent789ddcd34f96f7ea586c772ab43d1969c7440287 (diff)
downloaddrakx-backup-do-not-use-ec0acac98e4cec59984e1fcc03d24dfd2a755955.tar
drakx-backup-do-not-use-ec0acac98e4cec59984e1fcc03d24dfd2a755955.tar.gz
drakx-backup-do-not-use-ec0acac98e4cec59984e1fcc03d24dfd2a755955.tar.bz2
drakx-backup-do-not-use-ec0acac98e4cec59984e1fcc03d24dfd2a755955.tar.xz
drakx-backup-do-not-use-ec0acac98e4cec59984e1fcc03d24dfd2a755955.zip
(getFile): recall getFile after rewindGetFile
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ftp.pm6
1 files changed, 3 insertions, 3 deletions
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);
}