summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-09-14 16:56:43 +0000
committerFrancois Pons <fpons@mandriva.com>2000-09-14 16:56:43 +0000
commitad877b438532cdcf61eae13d5b93b3fc1836c45a (patch)
treea955e6ddb27404838605ae72e0b8af283a1b99d8 /perl-install
parentbfa6ac0e79fad372acb254c12a1752e02548e6fe (diff)
downloaddrakx-ad877b438532cdcf61eae13d5b93b3fc1836c45a.tar
drakx-ad877b438532cdcf61eae13d5b93b3fc1836c45a.tar.gz
drakx-ad877b438532cdcf61eae13d5b93b3fc1836c45a.tar.bz2
drakx-ad877b438532cdcf61eae13d5b93b3fc1836c45a.tar.xz
drakx-ad877b438532cdcf61eae13d5b93b3fc1836c45a.zip
*** empty log message ***
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_any.pm6
1 files changed, 1 insertions, 5 deletions
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;