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 /perl-install/pkgs.pm | |
| parent | 5951547620a6a8cd577ebe556d14dec38dcb09f0 (diff) | |
| download | drakx-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.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; |