From e87ebc0a0e5e83964d7e266d50c73321484eed2e Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 8 Dec 1999 00:49:14 +0000
Subject: no_comment

---
 perl-install/pkgs.pm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'perl-install/pkgs.pm')

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}} ];
-- 
cgit v1.2.1