summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
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;