From 1c60871f145aedec94a705ab95f6452bfeee0171 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Mon, 21 Jul 2003 14:52:11 +0000 Subject: avoid src package to be seen in tree. --- perl-install/install_steps_gtk.pm | 1 + 1 file changed, 1 insertion(+) diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm index 9326f4906..503528388 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -304,6 +304,7 @@ sub choosePackagesTree { node_state => sub { my $p = pkgs::packageByName($packages, $_[0]) or return; pkgs::packageMedium($packages, $p)->{selected} or return; + $p->arch eq 'src' and return; $p->flag_base and return 'base'; $p->flag_installed && !$p->flag_upgrade and return 'installed'; $p->flag_selected and return 'selected'; -- cgit v1.2.1