diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-09-19 22:50:49 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-09-19 22:50:49 +0000 |
| commit | a117445ee6c9611403e523fa212399101e93fc16 (patch) | |
| tree | 2ecc97dde024fdfc499448e6ac76ee37aa1ae115 /perl-install/pkgs.pm | |
| parent | a1b2c33c15ab52218a15839f21f4da1af6a68a07 (diff) | |
| download | drakx-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.pm | 5 |
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; |