diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-12-29 00:22:22 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-12-29 00:22:22 +0000 |
| commit | ec0acac98e4cec59984e1fcc03d24dfd2a755955 (patch) | |
| tree | 92dee6b065143fc0300acff4b54f7a67bfd80950 /perl-install | |
| parent | 789ddcd34f96f7ea586c772ab43d1969c7440287 (diff) | |
| download | drakx-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.pm | 6 |
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); } |