summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPablo Saratxaga <pablo@mandriva.com>2004-03-12 21:09:22 +0000
committerPablo Saratxaga <pablo@mandriva.com>2004-03-12 21:09:22 +0000
commit44f8737a9580e6267e84819634963abb8cd93129 (patch)
tree83d1bb43279ba847210b5c9de0cae54c2364912a /perl-install
parentf1007107552bc49bdd6d506b8ffc234d8a73cf0b (diff)
downloaddrakx-44f8737a9580e6267e84819634963abb8cd93129.tar
drakx-44f8737a9580e6267e84819634963abb8cd93129.tar.gz
drakx-44f8737a9580e6267e84819634963abb8cd93129.tar.bz2
drakx-44f8737a9580e6267e84819634963abb8cd93129.tar.xz
drakx-44f8737a9580e6267e84819634963abb8cd93129.zip
small correction
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/lang.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index cfbe04784..542089868 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -981,7 +981,7 @@ sub write {
s/^(Language)=.*/$1=$locale->{lang}/;
if (!member($kde_charset, 'iso8859-1', 'iso8859-15')) {
#- don't keep the default for those
- my $font_list = $charset2kde_font{$charset} || $charset2kde_font{default};
+ my $font_list = $charset2kde_font{l2charset($locale->{lang})} || $charset2kde_font{default};
my $font_small = $font_list->[0];
my $font_huge = $font_small;
$font_huge =~ s/(.*?),\d+/$1,24/;