summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_gtk.pm
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/install_steps_gtk.pm
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/install_steps_gtk.pm')
-rw-r--r--perl-install/install_steps_gtk.pm2
1 files changed, 1 insertions, 1 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));