summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-09-27 16:04:01 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-09-27 16:04:01 +0000
commit67dcf3a015d3dad98946b110ae9e60d711082a11 (patch)
tree40d7620ff54c5b4b4b6bb06fcd9bb4a6b939c94e /perl-install/pkgs.pm
parentf6b37f7b9f0d43a5824dd1222c8f017e90ab801b (diff)
downloaddrakx-67dcf3a015d3dad98946b110ae9e60d711082a11.tar
drakx-67dcf3a015d3dad98946b110ae9e60d711082a11.tar.gz
drakx-67dcf3a015d3dad98946b110ae9e60d711082a11.tar.bz2
drakx-67dcf3a015d3dad98946b110ae9e60d711082a11.tar.xz
drakx-67dcf3a015d3dad98946b110ae9e60d711082a11.zip
no_comment
Diffstat (limited to 'perl-install/pkgs.pm')
-rw-r--r--perl-install/pkgs.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index f489db953..d0d4954da 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -663,7 +663,7 @@ sub readCompssList {
}
sub readCompssUsers {
- my ($packages, $compss) = @_;
+ my ($packages, $compss, $meta_class) = @_;
my (%compssUsers, %compssUsersIcons, @sorted, $l);
my (%compss);
foreach (@$compss) {
@@ -675,7 +675,8 @@ sub readCompssUsers {
$l or return;
$_ = $packages->[0]{$_} or log::l("unknown package $_ (in compssUsers)") foreach @$l;
};
- my $f = install_any::getFile('Mandrake/base/compssUsers') or die "can't find compssUsers";
+ my $file = 'Mandrake/base/compssUsers';
+ my $f = install_any::getFile("$file.$meta_class") || install_any::getFile($file) or die "can't find $file";
foreach (<$f>) {
/^\s*$/ || /^#/ and next;
s/#.*//;