From 1a996ceb744f490f0183099640e7a1eb3ad039c1 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 22 Aug 2000 01:10:13 +0000
Subject: no_comment

---
 perl-install/install_steps.pm | 14 --------------
 1 file changed, 14 deletions(-)

(limited to 'perl-install/install_steps.pm')

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}});
 }
 
-- 
cgit v1.2.1