summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-03-14 19:22:20 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-03-14 19:22:20 +0000
commit2060ec3fde6da3ce94fa130a6365b6af04cd4815 (patch)
tree874c9f25665de902bc4956d7889403d5a13541ce /perl-install
parent270efc7cc3ffa9f39acb06708563bc26bab67f8d (diff)
downloaddrakx-2060ec3fde6da3ce94fa130a6365b6af04cd4815.tar
drakx-2060ec3fde6da3ce94fa130a6365b6af04cd4815.tar.gz
drakx-2060ec3fde6da3ce94fa130a6365b6af04cd4815.tar.bz2
drakx-2060ec3fde6da3ce94fa130a6365b6af04cd4815.tar.xz
drakx-2060ec3fde6da3ce94fa130a6365b6af04cd4815.zip
fix the compssUsers interpretation
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps_gtk.pm2
-rw-r--r--perl-install/pkgs.pm9
2 files changed, 6 insertions, 5 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 24f07388c..8b6e623a2 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -328,7 +328,7 @@ sub choosePackagesTree {
$fl{$_} = 1 foreach @{$o->{compssUsers}{$root}{flags}};
foreach my $p (values %{$packages->{names}}) {
my ($rate, @flags) = pkgs::packageRateRFlags($p);
- next if !($rate && !grep { !grep { /^!(.*)/ ? !$fl{$1} : $fl{$_} } split('\|\|') } @flags);
+ next if !($rate && grep { grep { !/^!/ && $fl{$_} } split('\|\|') } @flags);
$rate >= 3 ?
push(@firstchoice, pkgs::packageName($p)) :
push(@others, pkgs::packageName($p));
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 878e5f8c3..5acd43037 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -665,13 +665,14 @@ sub saveCompssUsers {
my ($prefix, $packages, $compssUsers, $sorted) = @_;
my $flat;
foreach (@$sorted) {
- my %fl;
- $fl{$_} = 1 foreach @{$compssUsers->{$_}{flags}};
+ my @fl = @{$compssUsers->{$_}{flags}};
+ my %fl; $fl{$_} = 1 foreach @fl;
$flat .= $compssUsers->{$_}{verbatim};
foreach my $p (values %{$packages->{names}}) {
my ($rate, @flags) = packageRateRFlags($p);
- $flat .= sprintf "\t%d %s\n", $rate, packageName($p)
- if $rate && !grep { !grep { /^!(.*)/ ? !$fl{$1} : $fl{$_} } split('\|\|') } @flags;
+ if ($rate && grep { grep { !/^!/ && $fl{$_} } split('\|\|') } @flags) {
+ $flat .= sprintf "\t%d %s\n", $rate, packageName($p);
+ }
}
}
output "$prefix/var/lib/urpmi/compssUsers.flat", $flat;