From 4eaa35158e7030ac51bcb8aafb936947ede97909 Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Tue, 18 Feb 2003 21:40:25 +0000 Subject: small change thx to pablo --- perl-install/lang.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install') diff --git a/perl-install/lang.pm b/perl-install/lang.pm index 772b443a1..9562a9775 100644 --- a/perl-install/lang.pm +++ b/perl-install/lang.pm @@ -646,7 +646,7 @@ sub charset2kde_font { # on the "charset" defined by language array. This allows to selecting # an appropriate font for each language. my %charset2pango_font = ( - 'tis620' => "Norasi 14", + 'tis620' => "Norasi 17", 'utf_ar' => "KacstBook 14", 'utf_cyr2' => "URW Bookman L 14", 'utf_he' => "ClearlyU 12", @@ -673,7 +673,7 @@ sub l2pango_font { my $charset = l2charset($lang) or log::l("no charset found for lang $lang!"), return; my $font = charset2pango_font($charset); - log::l("charset:$charset font:$font sfm:$charsets{$charset}[0]"); + log::l("lang:$lang charset:$charset font:$font sfm:$charsets{$charset}[0]"); if (common::usingRamdisk()) { if ($charsets{$charset}[0] !~ /lat|koi|UniCyr/) { -- cgit v1.2.1