From a130ec1291fed0faabfc8051f990f6765f1eabe1 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Wed, 5 Jan 2000 10:48:46 +0000
Subject: *** empty log message ***

---
 perl-install/ftp.pm | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'perl-install/ftp.pm')

diff --git a/perl-install/ftp.pm b/perl-install/ftp.pm
index c1b93fec4..350619c23 100644
--- a/perl-install/ftp.pm
+++ b/perl-install/ftp.pm
@@ -56,3 +56,14 @@ sub getFile($) {
     $$retr->close if $$retr;
     $$retr = $ftp->retr(install_any::relGetFile($f));
 }
+
+sub rewindGetFile() {
+    #- close any existing connection.
+    foreach (values %hosts) {
+	my ($ftp) = @{$_ || []};
+	$ftp->close() if $ftp;
+    }
+
+    #- make sure to reconnect to server.
+    %hosts = ();
+}
-- 
cgit v1.2.1