diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-04-17 22:59:53 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-04-17 22:59:53 +0000 |
| commit | 7d8c8f8b00a34baadfd02dfd098f864591253716 (patch) | |
| tree | c10d1485869e70c3ce98bb47686e8d210e2b2f6a /perl-install/ftp.pm | |
| parent | 4ac24b5f0541ab6a18278a12aeb1cb10bf61c27f (diff) | |
| download | drakx-7d8c8f8b00a34baadfd02dfd098f864591253716.tar drakx-7d8c8f8b00a34baadfd02dfd098f864591253716.tar.gz drakx-7d8c8f8b00a34baadfd02dfd098f864591253716.tar.bz2 drakx-7d8c8f8b00a34baadfd02dfd098f864591253716.tar.xz drakx-7d8c8f8b00a34baadfd02dfd098f864591253716.zip | |
no_comment
Diffstat (limited to 'perl-install/ftp.pm')
| -rw-r--r-- | perl-install/ftp.pm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/perl-install/ftp.pm b/perl-install/ftp.pm index 8e5989ae4..5bb5cfdf2 100644 --- a/perl-install/ftp.pm +++ b/perl-install/ftp.pm @@ -58,6 +58,15 @@ sub getFile { $$retr ||= $ftp->retr(install_any::relGetFile($f)); } +#-sub closeFiles() { +#- #- close any existing connections +#- foreach (values %hosts) { +#- my $retr = $_->[1] if ref $_; +#- $$retr->close if $$retr; +#- undef $$retr; +#- } +#-} + sub rewindGetFile() { #- close any existing connection. foreach (values %hosts) { |