From 647de2efcb5b23f98b3caf5fd76d55451d8838e0 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 12 Apr 2001 12:58:01 +0000
Subject: (pack_langs): set RPM_INSTALL_LANG for package "menu"

---
 perl-install/lang.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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

diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index 104b139c5..d784b077e 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -352,7 +352,9 @@ sub langsLANGUAGE {
 
 sub pack_langs { 
     my ($l) = @_; 
-    $l->{all} ? 'all' : join ':', uniq(map { $languages{$_}[3] } langs($l));
+    my $s = $l->{all} ? 'all' : join ':', uniq(map { $languages{$_}[3] } langs($l));
+    $ENV{RPM_INSTALL_LANG} = $s;
+    $s;
 }
 
 sub write_langs {
-- 
cgit v1.2.1