From ad877b438532cdcf61eae13d5b93b3fc1836c45a Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Thu, 14 Sep 2000 16:56:43 +0000
Subject: *** empty log message ***

---
 perl-install/install_any.pm | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

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

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index edc1d9b8c..53fdf2798 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -176,11 +176,7 @@ sub setup_postinstall_rpms($$) {
 	my $pkg = pkgs::packageByName($packages, $_);
 	pkgs::selectPackage($packages, $pkg, 0, \%toCopy) if $pkg;
     }
-    foreach (@needToCopyIfRequiresSatisfied) {
-	my $pkg = pkgs::packageByName($packages, $_);
-	my %newSelection; pkgs::selectPackage($packages, $pkg, 0, \%newSelection) if $pkg;
-	scalar(keys %newSelection) == 1 and @toCopy{keys %newSelection} = ();
-    }
+    @toCopy{@needToCopyIfRequiresSatisfied} = ();
 
     my @toCopy = map { pkgs::packageByName($packages, $_) } keys %toCopy;
 
-- 
cgit v1.2.1