summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-01-18 18:07:29 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-01-18 18:07:29 +0000
commite2e3479d2e31bfd7d31b6fe6a176c83354196543 (patch)
treea89a365ad727a77c2ed70ed4aa71dba67953d794
parentc14c7fabfa34df8a28cd70af88c097a10cbfefc5 (diff)
downloaddrakx-backup-do-not-use-e2e3479d2e31bfd7d31b6fe6a176c83354196543.tar
drakx-backup-do-not-use-e2e3479d2e31bfd7d31b6fe6a176c83354196543.tar.gz
drakx-backup-do-not-use-e2e3479d2e31bfd7d31b6fe6a176c83354196543.tar.bz2
drakx-backup-do-not-use-e2e3479d2e31bfd7d31b6fe6a176c83354196543.tar.xz
drakx-backup-do-not-use-e2e3479d2e31bfd7d31b6fe6a176c83354196543.zip
fix generating compssUsers.flat (was broken because of the CAT_xxx switch)
-rw-r--r--perl-install/pkgs.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 76e306f80..235fc218a 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -655,7 +655,7 @@ sub saveCompssUsers {
my ($packages, $compssUsers) = @_;
my $flat;
foreach (@$compssUsers) {
- my %fl = map { $_ => 1 } @{$_->{flags}};
+ my %fl = map { ("CAT_$_" => 1) } @{$_->{flags}};
$flat .= "$_->{label} [icon=xxx] [path=$_->{path}]\n";
foreach my $p (@{$packages->{depslist}}) {
my @flags = $p->rflags;