diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-08-22 01:10:13 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-08-22 01:10:13 +0000 |
| commit | 1a996ceb744f490f0183099640e7a1eb3ad039c1 (patch) | |
| tree | 7e599599dc2cd1601dc1f86b7db223ceebc562a9 /perl-install/install_steps.pm | |
| parent | e2df2b17c50af038bbfe15f5b6dd9a21c532ae5b (diff) | |
| download | drakx-1a996ceb744f490f0183099640e7a1eb3ad039c1.tar drakx-1a996ceb744f490f0183099640e7a1eb3ad039c1.tar.gz drakx-1a996ceb744f490f0183099640e7a1eb3ad039c1.tar.bz2 drakx-1a996ceb744f490f0183099640e7a1eb3ad039c1.tar.xz drakx-1a996ceb744f490f0183099640e7a1eb3ad039c1.zip | |
no_comment
Diffstat (limited to 'perl-install/install_steps.pm')
| -rw-r--r-- | perl-install/install_steps.pm | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index 06d24c232..cb2211abf 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -613,20 +613,6 @@ sub installCrypto { $o->upNetwork; require crypto; my @crypto_packages = crypto::getPackages($o->{prefix}, $o->{packages}, $u->{mirror}); - - my $oldGetFile = \&install_any::getFile; - local *install_any::getFile = sub { - my ($rpmfile) = @_; - if ($rpmfile =~ /^(.*)-[^-]*-[^-]*$/ && member($1, @crypto_packages)) { - log::l("crypto::getFile $rpmfile"); - crypto::getFile($rpmfile, $u->{mirror}); - } else { - #- use previous getFile typically if non cryptographic packages - #- have been selected by dependancies. - log::l("normal getFile $rpmfile"); - &$oldGetFile($rpmfile); - } - }; $o->pkg_install(@{$u->{packages}}); } |