summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-09-14 23:43:25 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-09-14 23:43:25 +0000
commit816611491e0184792a6d481faed41557bfefb707 (patch)
tree1e8972ad55f45ddd2e3e48c5c3ac628ccb5a2db9 /perl-install/install_any.pm
parent0b53ba66063c183f5bd5587c89c125024002c62b (diff)
downloaddrakx-backup-do-not-use-816611491e0184792a6d481faed41557bfefb707.tar
drakx-backup-do-not-use-816611491e0184792a6d481faed41557bfefb707.tar.gz
drakx-backup-do-not-use-816611491e0184792a6d481faed41557bfefb707.tar.bz2
drakx-backup-do-not-use-816611491e0184792a6d481faed41557bfefb707.tar.xz
drakx-backup-do-not-use-816611491e0184792a6d481faed41557bfefb707.zip
no_comment
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm15
1 files changed, 12 insertions, 3 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index e40c800fe..2ebb6e868 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -31,9 +31,18 @@ sub relGetFile($) {
s/i386/i586/;
$_;
}
-sub getFile($) {
- open getFile, "/tmp/rhimage/" . relGetFile($_[0]) or return;
- \*getFile;
+sub getFile($) {
+ local $^W = 0;
+ if ($::o->{method} && $::o->{method} eq "ftp") {
+ require 'ftp.pm';
+ *install_any::getFile = \&ftp::getFile;
+ } else {
+ *install_any::getFile = sub($) {
+ open getFile, "/tmp/rhimage/" . relGetFile($_[0]) or return;
+ \*getFile;
+ };
+ }
+ goto &getFile;
}
sub versionString {