diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2001-03-12 18:20:04 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2001-03-12 18:20:04 +0000 |
commit | 7729221617288fd6c6a95e3b3f5c8cb3ef8f15eb (patch) | |
tree | dabee3ebacb5fd8fd144236d57b2b24204354158 | |
parent | 5951547620a6a8cd577ebe556d14dec38dcb09f0 (diff) | |
download | drakx-7729221617288fd6c6a95e3b3f5c8cb3ef8f15eb.tar drakx-7729221617288fd6c6a95e3b3f5c8cb3ef8f15eb.tar.gz drakx-7729221617288fd6c6a95e3b3f5c8cb3ef8f15eb.tar.bz2 drakx-7729221617288fd6c6a95e3b3f5c8cb3ef8f15eb.tar.xz drakx-7729221617288fd6c6a95e3b3f5c8cb3ef8f15eb.zip |
(saveCompssUsers): make it work
-rw-r--r-- | perl-install/pkgs.pm | 4 |
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; |