From 7729221617288fd6c6a95e3b3f5c8cb3ef8f15eb Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 12 Mar 2001 18:20:04 +0000
Subject: (saveCompssUsers): make it work

---
 perl-install/pkgs.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install')

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;
-- 
cgit v1.2.1