From 9082bbf94867ed702062d8a155d9227929f92d53 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Tue, 30 Sep 2003 15:07:37 +0000 Subject: perl_checker fixes. --- perl-install/install_steps_gtk.pm | 6 ++++-- 1 file 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"), -- cgit v1.2.1