diff options
| author | Francois Pons <fpons@mandriva.com> | 2003-09-30 15:07:37 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2003-09-30 15:07:37 +0000 |
| commit | 9082bbf94867ed702062d8a155d9227929f92d53 (patch) | |
| tree | 6edfb585c96b550a42273fcacd030ff7abff6447 /perl-install | |
| parent | 052d6de7f125c0a931ab3059dd53a2797c2c0159 (diff) | |
| download | drakx-9082bbf94867ed702062d8a155d9227929f92d53.tar drakx-9082bbf94867ed702062d8a155d9227929f92d53.tar.gz drakx-9082bbf94867ed702062d8a155d9227929f92d53.tar.bz2 drakx-9082bbf94867ed702062d8a155d9227929f92d53.tar.xz drakx-9082bbf94867ed702062d8a155d9227929f92d53.zip | |
perl_checker fixes.
Diffstat (limited to 'perl-install')
| -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"), |