From cac964c0af314f9a61d9f1764372b3bbe1fee244 Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Fri, 6 Dec 2002 16:22:17 +0000
Subject: perl checker OwnZ Da W3rld

---
 perl-install/lang.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index 279f3a738..b9fa76135 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -552,7 +552,7 @@ my %charset2pango_font = (
   'ksc5601' =>    [ "baekmuk_gulim_h_14.pcf" ],
   'gb2312' =>     [ "gb16fs.pcf" ],
   'Big5' =>       [ "taipei16.pcf" ],
-  'jisx0208' =>   [ "12x13ja.pcf",     "Sans" ],
+  'jisx0208' =>   [ "12x13ja.pcf",     "Nimbus Sans L" ],
   'tis620' =>     [ "norasi_n.ttf",    "Norasi" ],
   'tscii' =>      [ "tscava.ttf",      "TSC_Avarangal" ],
   'utf_vi' =>     [ "cu12.pcf",        "ClearlyU" ],
@@ -570,7 +570,7 @@ my %charset2pango_font = (
 sub charset2pango_font {
     my ($charset) = @_;
     
-    $charset2pango_font{exists $charset2pango_font{$charset} ? $charset : 'default'}->[1];
+    $charset2pango_font{exists $charset2pango_font{$charset} ? $charset : 'default'}[1];
 }
 
 sub lang2pango_font {
-- 
cgit v1.2.1