diff options
Diffstat (limited to 'perl-install/lang.pm')
| -rw-r--r-- | perl-install/lang.pm | 8 |
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 :( #-###################################################################################### |