diff options
| author | Francois Pons <fpons@mandriva.com> | 2001-08-23 09:58:16 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2001-08-23 09:58:16 +0000 |
| commit | aa22e57ed10bf8085057facd223b3663b7acea4d (patch) | |
| tree | 59bf21be69140b8f7c94df8cbfb201200be2ebb0 | |
| parent | 086fa15ce7b348f7e7b06980e65fd22918717571 (diff) | |
| download | drakx-aa22e57ed10bf8085057facd223b3663b7acea4d.tar drakx-aa22e57ed10bf8085057facd223b3663b7acea4d.tar.gz drakx-aa22e57ed10bf8085057facd223b3663b7acea4d.tar.bz2 drakx-aa22e57ed10bf8085057facd223b3663b7acea4d.tar.xz drakx-aa22e57ed10bf8085057facd223b3663b7acea4d.zip | |
removed unusefull greping when building package tree.
| -rw-r--r-- | perl-install/install_steps_gtk.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm index 79e8bf79f..182bbd20e 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -341,8 +341,7 @@ sub choosePackagesTree { build_tree => sub { my ($add_node, $flat) = @_; if ($flat) { - foreach (sort grep { my $pkg = pkgs::packageByName($packages, $_); - pkgs::packageMedium($pkg)->{selected} } keys %{$packages->{names}}) { + foreach (sort keys %{$packages->{names}}) { $add_node->($_, undef); } } else { |