From 44f8737a9580e6267e84819634963abb8cd93129 Mon Sep 17 00:00:00 2001
From: Pablo Saratxaga <pablo@mandriva.com>
Date: Fri, 12 Mar 2004 21:09:22 +0000
Subject: small correction

---
 perl-install/lang.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install')

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/;
-- 
cgit v1.2.1