summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2002-12-05 16:56:06 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2002-12-05 16:56:06 +0000
commit596dfc11ba8ae30b472e571530a6af33dfac8120 (patch)
tree2d3fe9846a24663597d71d09cbd61b489efaba78 /perl-install
parente2e704f39548c7cb59669e6f2525e6e05f1dc826 (diff)
downloaddrakx-596dfc11ba8ae30b472e571530a6af33dfac8120.tar
drakx-596dfc11ba8ae30b472e571530a6af33dfac8120.tar.gz
drakx-596dfc11ba8ae30b472e571530a6af33dfac8120.tar.bz2
drakx-596dfc11ba8ae30b472e571530a6af33dfac8120.tar.xz
drakx-596dfc11ba8ae30b472e571530a6af33dfac8120.zip
try to fix charset2pango_font
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/lang.pm6
1 files changed, 5 insertions, 1 deletions
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 {