From 4eaa35158e7030ac51bcb8aafb936947ede97909 Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
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/lang.pm')

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