diff options
| -rw-r--r-- | perl-install/install_steps_gtk.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm index cfc62b9c3..1596a7572 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -367,8 +367,10 @@ sub choosePackagesTree { while (@ask_unselect > keys %ask_unselect) { @ask_unselect{@ask_unselect} = (); foreach (keys %ask_unselect) { - push @ask_unselect, grep { ! exists $ask_unselect{$_} } - keys %{$state->{rejected}{$_}{backtrack}{closure} || {}}; + foreach (keys %{$state->{rejected}{$_}{backtrack}{closure} || {}}) { + next if exists $ask_unselect{$_}; + push @ask_unselect, $_; + } } } $error = [ N("You can't select/unselect this package"), |