From a117445ee6c9611403e523fa212399101e93fc16 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 19 Sep 2000 22:50:49 +0000
Subject: no_comment

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

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

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