diff options
author | Francois Pons <fpons@mandriva.com> | 2003-07-21 14:52:11 +0000 |
---|---|---|
committer | Francois Pons <fpons@mandriva.com> | 2003-07-21 14:52:11 +0000 |
commit | 1c60871f145aedec94a705ab95f6452bfeee0171 (patch) | |
tree | 77398cf77faa6ddb5381a0eedae6e73a2c151777 /perl-install/install_steps_gtk.pm | |
parent | 1b9fc74443a32bed1a877f19aafff3efe28093d8 (diff) | |
download | drakx-backup-do-not-use-1c60871f145aedec94a705ab95f6452bfeee0171.tar drakx-backup-do-not-use-1c60871f145aedec94a705ab95f6452bfeee0171.tar.gz drakx-backup-do-not-use-1c60871f145aedec94a705ab95f6452bfeee0171.tar.bz2 drakx-backup-do-not-use-1c60871f145aedec94a705ab95f6452bfeee0171.tar.xz drakx-backup-do-not-use-1c60871f145aedec94a705ab95f6452bfeee0171.zip |
avoid src package to be seen in tree.
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
-rw-r--r-- | perl-install/install_steps_gtk.pm | 1 |
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'; |