diff options
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) { |