summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/pkgs.pm')
-rw-r--r--perl-install/pkgs.pm7
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}} ];