From 673787cbdab4a47b0b3cb987866c57704d7bdee9 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 23 Aug 1999 13:01:55 +0000
Subject: no_comment

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

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

diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index fe03cf72d..9a30749a7 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -29,6 +29,7 @@ my %languages = (
 1;
 
 sub list { map { $_->[0] } values %languages }
+sub lang2text { $languages{$_[0]} && $languages{$_[0]}[0] }
 sub text2lang {
     my ($t) = @_;
     while (my ($k, $v) = each %languages) {
@@ -42,8 +43,8 @@ sub set {
 
     if ($lang) {
 	$ENV{LANG} = $ENV{LINGUAS} = $lang;
-	$ENV{LC_ALL} = $languages{$lang}->[3];
-	#if (my $f = $languages{$lang}->[1]) { load_font($f) }
+	$ENV{LC_ALL} = $languages{$lang}[3];
+	#if (my $f = $languages{$lang}[1]) { load_font($f) }
     } else {
 	# stick with the default (English) */
 	delete $ENV{LANG};
-- 
cgit v1.2.1