diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-09-14 23:43:25 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-09-14 23:43:25 +0000 |
| commit | 816611491e0184792a6d481faed41557bfefb707 (patch) | |
| tree | 1e8972ad55f45ddd2e3e48c5c3ac628ccb5a2db9 /perl-install/install_any.pm | |
| parent | 0b53ba66063c183f5bd5587c89c125024002c62b (diff) | |
| download | drakx-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.pm | 15 |
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 { |