summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2003-07-21 14:52:11 +0000
committerFrancois Pons <fpons@mandriva.com>2003-07-21 14:52:11 +0000
commit1c60871f145aedec94a705ab95f6452bfeee0171 (patch)
tree77398cf77faa6ddb5381a0eedae6e73a2c151777 /perl-install
parent1b9fc74443a32bed1a877f19aafff3efe28093d8 (diff)
downloaddrakx-1c60871f145aedec94a705ab95f6452bfeee0171.tar
drakx-1c60871f145aedec94a705ab95f6452bfeee0171.tar.gz
drakx-1c60871f145aedec94a705ab95f6452bfeee0171.tar.bz2
drakx-1c60871f145aedec94a705ab95f6452bfeee0171.tar.xz
drakx-1c60871f145aedec94a705ab95f6452bfeee0171.zip
avoid src package to be seen in tree.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps_gtk.pm1
1 files changed, 1 insertions, 0 deletions
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';