summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-09-19 22:50:49 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-09-19 22:50:49 +0000
commita117445ee6c9611403e523fa212399101e93fc16 (patch)
tree2ecc97dde024fdfc499448e6ac76ee37aa1ae115 /perl-install/pkgs.pm
parenta1b2c33c15ab52218a15839f21f4da1af6a68a07 (diff)
downloaddrakx-a117445ee6c9611403e523fa212399101e93fc16.tar
drakx-a117445ee6c9611403e523fa212399101e93fc16.tar.gz
drakx-a117445ee6c9611403e523fa212399101e93fc16.tar.bz2
drakx-a117445ee6c9611403e523fa212399101e93fc16.tar.xz
drakx-a117445ee6c9611403e523fa212399101e93fc16.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 5b56a4511..c74e4365b 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -639,7 +639,7 @@ sub readCompss {
}
sub readCompssList {
- my ($packages) = @_;
+ my ($packages, $langs) = @_;
my $f = install_any::getFile("compssList") or die "can't find compssList";
my @levels = split ' ', <$f>;
@@ -651,7 +651,8 @@ sub readCompssList {
}
my %done;
- foreach (split ':', $ENV{RPM_INSTALL_LANG}) {
+ foreach (@$langs) {
+ log::l("readCompssList lang: $_");
my $p = packageByName($packages, "locales-$_") or next;
foreach ($p, @{$p->{provides} || []}, map { packageByName($packages, $_) } @{$by_lang{$_} || []}) {
next if !$_ || $done{$_}; $done{$_} = 1;