diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-12-08 00:49:14 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-12-08 00:49:14 +0000 |
| commit | e87ebc0a0e5e83964d7e266d50c73321484eed2e (patch) | |
| tree | ebf0db8cfa6eb885238d9f487483d0ff7898c67d /perl-install/pkgs.pm | |
| parent | a3d1d777b3ec42680658523e265c0538c121b594 (diff) | |
| download | drakx-e87ebc0a0e5e83964d7e266d50c73321484eed2e.tar drakx-e87ebc0a0e5e83964d7e266d50c73321484eed2e.tar.gz drakx-e87ebc0a0e5e83964d7e266d50c73321484eed2e.tar.bz2 drakx-e87ebc0a0e5e83964d7e266d50c73321484eed2e.tar.xz drakx-e87ebc0a0e5e83964d7e266d50c73321484eed2e.zip | |
no_comment
Diffstat (limited to 'perl-install/pkgs.pm')
| -rw-r--r-- | perl-install/pkgs.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index a9eef2b89..870d8bb9c 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -216,7 +216,7 @@ sub readCompss($) { } sub readCompssList($$$) { - my ($packages, $compss_, $lang) = @_; + my ($packages, $compss_) = @_; my $f = install_any::getFile("compssList") or die "can't find compssList"; local $_ = <$f>; my $level = [ split ]; @@ -234,8 +234,9 @@ sub readCompssList($$$) { my $p = $e->{$name} or log::l("unknown entry $name (in compssList)"), next; $p->{values} = \@values; } - my $locales = "locales-" . substr($lang, 0, 2); - if (my $p = $packages->{$locales}) { + foreach (split ':', $ENV{LANGUAGE}) { + my $locales = "locales-" . substr($_, 0, 2); + my $p = $packages->{$locales} or next; foreach ($locales, @{$p->{provides} || []}) { my $p = $packages->{$_} or next; $p->{values} = [ map { $_ + 70 } @{$p->{values}} ]; |