summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-03-12 18:20:04 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-03-12 18:20:04 +0000
commit7729221617288fd6c6a95e3b3f5c8cb3ef8f15eb (patch)
treedabee3ebacb5fd8fd144236d57b2b24204354158 /perl-install/pkgs.pm
parent5951547620a6a8cd577ebe556d14dec38dcb09f0 (diff)
downloaddrakx-backup-do-not-use-7729221617288fd6c6a95e3b3f5c8cb3ef8f15eb.tar
drakx-backup-do-not-use-7729221617288fd6c6a95e3b3f5c8cb3ef8f15eb.tar.gz
drakx-backup-do-not-use-7729221617288fd6c6a95e3b3f5c8cb3ef8f15eb.tar.bz2
drakx-backup-do-not-use-7729221617288fd6c6a95e3b3f5c8cb3ef8f15eb.tar.xz
drakx-backup-do-not-use-7729221617288fd6c6a95e3b3f5c8cb3ef8f15eb.zip
(saveCompssUsers): make it work
Diffstat (limited to 'perl-install/pkgs.pm')
-rw-r--r--perl-install/pkgs.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index dce506db5..1c99fe3f1 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -689,8 +689,8 @@ sub saveCompssUsers {
$flat .= $compssUsers->{$_}{verbatim};
foreach my $p (values %{$packages->{names}}) {
my ($rate, @flags) = packageRateRFlags($p);
- $flat .= "\t$rate " . packageName($p)
- if grep { !grep { /^!(.*)/ ? !$fl{$1} : $fl{$_} } split('\|\|') } @flags;
+ $flat .= sprintf "\t%d %s\n", $rate, packageName($p)
+ if $rate && !grep { !grep { /^!(.*)/ ? !$fl{$1} : $fl{$_} } split('\|\|') } @flags;
}
}
output "$prefix/var/lib/urpmi/compssUsers.flat", $flat;