From 596dfc11ba8ae30b472e571530a6af33dfac8120 Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Thu, 5 Dec 2002 16:56:06 +0000 Subject: try to fix charset2pango_font --- perl-install/lang.pm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'perl-install/lang.pm') diff --git a/perl-install/lang.pm b/perl-install/lang.pm index 4bce6aa7a..008e339a4 100644 --- a/perl-install/lang.pm +++ b/perl-install/lang.pm @@ -570,7 +570,11 @@ my %charset2pango_font = ( sub charset2pango_font { my ($charset) = @_; - $charset2pango_font{$charset}->[1] || $charset2pango_font{default}->[1]; + if (exists $charset2pango_font{$charset}) { + $charset2pango_font{$charset}->[1]; + } else { + $charset2pango_font{default}->[1]; + } } sub lang2pango_font { -- cgit v1.2.1