summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2001-08-23 09:58:16 +0000
committerFrancois Pons <fpons@mandriva.com>2001-08-23 09:58:16 +0000
commitaa22e57ed10bf8085057facd223b3663b7acea4d (patch)
tree59bf21be69140b8f7c94df8cbfb201200be2ebb0
parent086fa15ce7b348f7e7b06980e65fd22918717571 (diff)
downloaddrakx-backup-do-not-use-aa22e57ed10bf8085057facd223b3663b7acea4d.tar
drakx-backup-do-not-use-aa22e57ed10bf8085057facd223b3663b7acea4d.tar.gz
drakx-backup-do-not-use-aa22e57ed10bf8085057facd223b3663b7acea4d.tar.bz2
drakx-backup-do-not-use-aa22e57ed10bf8085057facd223b3663b7acea4d.tar.xz
drakx-backup-do-not-use-aa22e57ed10bf8085057facd223b3663b7acea4d.zip
removed unusefull greping when building package tree.
-rw-r--r--perl-install/install_steps_gtk.pm3
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 {