From 6e10a5c1c062bc55d1a3327cd13d4447ee9a3010 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 5 Oct 2000 23:04:34 +0000
Subject: no_comment

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

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

diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index 53d396054..176f7bdd9 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -433,6 +433,14 @@ sub get_x_fontset {
     ($big, $small);
 }
 
+sub charset {
+    my ($lang, $prefix) = @_;
+    my $l = $languages{$lang} && $languages{$lang}[2];
+    foreach (cat_("$prefix/usr/X11R6/lib/X11/locale/locale.alias")) {
+	/$l:\s+.*\.(\S+)/ and return $1;
+    }
+}
+
 #-######################################################################################
 #- Wonderful perl :(
 #-######################################################################################
-- 
cgit v1.2.1