summaryrefslogtreecommitdiffstats
path: root/perl-install/lang.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-10-05 23:04:34 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-10-05 23:04:34 +0000
commit6e10a5c1c062bc55d1a3327cd13d4447ee9a3010 (patch)
tree5fe5c574bc5ad4ae5ac95d588bf42c98b6bb12b4 /perl-install/lang.pm
parent32ffa5852bbaf28a57bf1d6304b4ca57350d61d2 (diff)
downloaddrakx-6e10a5c1c062bc55d1a3327cd13d4447ee9a3010.tar
drakx-6e10a5c1c062bc55d1a3327cd13d4447ee9a3010.tar.gz
drakx-6e10a5c1c062bc55d1a3327cd13d4447ee9a3010.tar.bz2
drakx-6e10a5c1c062bc55d1a3327cd13d4447ee9a3010.tar.xz
drakx-6e10a5c1c062bc55d1a3327cd13d4447ee9a3010.zip
no_comment
Diffstat (limited to 'perl-install/lang.pm')
-rw-r--r--perl-install/lang.pm8
1 files changed, 8 insertions, 0 deletions
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 :(
#-######################################################################################