From aa22e57ed10bf8085057facd223b3663b7acea4d Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
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(-)

(limited to 'perl-install/install_steps_gtk.pm')

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