diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-09-27 16:04:01 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-09-27 16:04:01 +0000 |
| commit | 67dcf3a015d3dad98946b110ae9e60d711082a11 (patch) | |
| tree | 40d7620ff54c5b4b4b6bb06fcd9bb4a6b939c94e /perl-install/pkgs.pm | |
| parent | f6b37f7b9f0d43a5824dd1222c8f017e90ab801b (diff) | |
| download | drakx-backup-do-not-use-67dcf3a015d3dad98946b110ae9e60d711082a11.tar drakx-backup-do-not-use-67dcf3a015d3dad98946b110ae9e60d711082a11.tar.gz drakx-backup-do-not-use-67dcf3a015d3dad98946b110ae9e60d711082a11.tar.bz2 drakx-backup-do-not-use-67dcf3a015d3dad98946b110ae9e60d711082a11.tar.xz drakx-backup-do-not-use-67dcf3a015d3dad98946b110ae9e60d711082a11.zip | |
no_comment
Diffstat (limited to 'perl-install/pkgs.pm')
| -rw-r--r-- | perl-install/pkgs.pm | 5 |
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/#.*//; |