diff options
author | Francois Pons <fpons@mandriva.com> | 2000-09-14 16:56:43 +0000 |
---|---|---|
committer | Francois Pons <fpons@mandriva.com> | 2000-09-14 16:56:43 +0000 |
commit | ad877b438532cdcf61eae13d5b93b3fc1836c45a (patch) | |
tree | a955e6ddb27404838605ae72e0b8af283a1b99d8 /perl-install/install_any.pm | |
parent | bfa6ac0e79fad372acb254c12a1752e02548e6fe (diff) | |
download | drakx-backup-do-not-use-ad877b438532cdcf61eae13d5b93b3fc1836c45a.tar drakx-backup-do-not-use-ad877b438532cdcf61eae13d5b93b3fc1836c45a.tar.gz drakx-backup-do-not-use-ad877b438532cdcf61eae13d5b93b3fc1836c45a.tar.bz2 drakx-backup-do-not-use-ad877b438532cdcf61eae13d5b93b3fc1836c45a.tar.xz drakx-backup-do-not-use-ad877b438532cdcf61eae13d5b93b3fc1836c45a.zip |
*** empty log message ***
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r-- | perl-install/install_any.pm | 6 |
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; |