diff options
Diffstat (limited to 'perl-install')
| -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; |