summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-03-12 15:55:55 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-03-12 15:55:55 +0000
commit8fe0ce392f4dde3174c593ed2a2cf0e7add4171a (patch)
treea58c108d8da836812eb65cabbbfabb3f8ad79e2f /perl-install/install_any.pm
parent4bd77b159315f5c646efb2ed622b929ae5904551 (diff)
downloaddrakx-8fe0ce392f4dde3174c593ed2a2cf0e7add4171a.tar
drakx-8fe0ce392f4dde3174c593ed2a2cf0e7add4171a.tar.gz
drakx-8fe0ce392f4dde3174c593ed2a2cf0e7add4171a.tar.bz2
drakx-8fe0ce392f4dde3174c593ed2a2cf0e7add4171a.tar.xz
drakx-8fe0ce392f4dde3174c593ed2a2cf0e7add4171a.zip
put everything in %compssUsers, use field flags for the flags :)
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm5
1 files changed, 2 insertions, 3 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 9260cbb39..23beb47bc 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -316,11 +316,10 @@ sub setPackages {
$o->{compss} = pkgs::readCompss($o->{prefix}, $o->{packages});
#- must be done after getProvides
pkgs::read_rpmsrate($o->{packages}, getFile("Mandrake/base/rpmsrate"));
- ($o->{compssUsers}, $o->{compssUsersSorted}, $o->{compssUsersIcons}, $o->{compssUsersDescr}) =
- pkgs::readCompssUsers($o->{packages}, $o->{meta_class});
+ ($o->{compssUsers}, $o->{compssUsersSorted}) = pkgs::readCompssUsers($o->{packages}, $o->{meta_class});
if ($::auto_install && !$o->{compssUsersChoice}) {
- $o->{compssUsersChoice}{$_} = 1 foreach map { @{$o->{compssUsers}{$_}} } @{$o->{compssUsersSorted}};
+ $o->{compssUsersChoice}{$_} = 1 foreach map { @{$o->{compssUsers}{$_}{flags}} } @{$o->{compssUsersSorted}};
}
$o->{compssUsersChoice}{SYSTEM} = 1;
$o->{compssUsersChoice}{BURNER} = 1 if detect_devices::burners();