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/install_any.pm | 6 ++++++
 1 file changed, 6 insertions(+)

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

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 7ccb2e73e..a38316bbd 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -55,6 +55,12 @@ sub getFile($) {
     }
     goto &getFile;
 }
+sub rewindGetFile() {
+    if ($::o->{method} && $::o->{method} eq "ftp") {
+	require ftp;
+	ftp::rewindGetFile(); #- make sure to reopen connection.
+    }
+}
 
 sub kernelVersion {
     local $_ = readlink("$::o->{prefix}/boot/vmlinuz") || $::testing && "vmlinuz-2.2.testversion" or die "I couldn't find the kernel package!";
-- 
cgit v1.2.1