diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2004-12-28 12:44:04 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2004-12-28 12:44:04 +0000 |
commit | 62a0a2936b8d05d04db3fe45694010a09fbb3730 (patch) | |
tree | 151a570e1c118589e05e595a9e917086795b7cd3 /perl-install | |
parent | daf6a951136ebec9ca194925bf36eb722431ab84 (diff) | |
download | drakx-backup-do-not-use-62a0a2936b8d05d04db3fe45694010a09fbb3730.tar drakx-backup-do-not-use-62a0a2936b8d05d04db3fe45694010a09fbb3730.tar.gz drakx-backup-do-not-use-62a0a2936b8d05d04db3fe45694010a09fbb3730.tar.bz2 drakx-backup-do-not-use-62a0a2936b8d05d04db3fe45694010a09fbb3730.tar.xz drakx-backup-do-not-use-62a0a2936b8d05d04db3fe45694010a09fbb3730.zip |
fix displaying package tree (was empty since moving from XXX to CAT_XXX)
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/install_steps_gtk.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm index f939fdb29..efd7fe8c2 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -279,7 +279,7 @@ sub choosePackagesTree { } else { foreach my $root (@{$o->{compssUsers}}) { my (@firstchoice, @others); - my %fl = map { $_ => 1 } @{$root->{flags}}; + my %fl = map { ("CAT_$_" => 1) } @{$root->{flags}}; foreach my $p (@{$packages->{depslist}}) { !$o_limit_medium || pkgs::packageMedium($packages, $p) == $o_limit_medium or next; my @flags = $p->rflags; |