diff options
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}}); } |