diff options
Diffstat (limited to 'perl-install')
| -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; |