From 67dcf3a015d3dad98946b110ae9e60d711082a11 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 27 Sep 2000 16:04:01 +0000
Subject: no_comment

---
 perl-install/pkgs.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'perl-install/pkgs.pm')

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/#.*//;
-- 
cgit v1.2.1