summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-01-05 10:48:46 +0000
committerFrancois Pons <fpons@mandriva.com>2000-01-05 10:48:46 +0000
commita130ec1291fed0faabfc8051f990f6765f1eabe1 (patch)
tree6003da55772ec84c01633b43d0e56075da4697b1 /perl-install/install_any.pm
parent7375c014ce40d54d6199645fcf030e992448b930 (diff)
downloaddrakx-a130ec1291fed0faabfc8051f990f6765f1eabe1.tar
drakx-a130ec1291fed0faabfc8051f990f6765f1eabe1.tar.gz
drakx-a130ec1291fed0faabfc8051f990f6765f1eabe1.tar.bz2
drakx-a130ec1291fed0faabfc8051f990f6765f1eabe1.tar.xz
drakx-a130ec1291fed0faabfc8051f990f6765f1eabe1.zip
*** empty log message ***
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm6
1 files changed, 6 insertions, 0 deletions
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!";