From aa22e57ed10bf8085057facd223b3663b7acea4d Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Thu, 23 Aug 2001 09:58:16 +0000 Subject: removed unusefull greping when building package tree. --- perl-install/install_steps_gtk.pm | 3 +-- 1 file changed, 1 insertion(+), 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 { -- cgit v1.2.1