diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2002-12-05 16:56:06 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2002-12-05 16:56:06 +0000 |
| commit | 596dfc11ba8ae30b472e571530a6af33dfac8120 (patch) | |
| tree | 2d3fe9846a24663597d71d09cbd61b489efaba78 /perl-install | |
| parent | e2e704f39548c7cb59669e6f2525e6e05f1dc826 (diff) | |
| download | drakx-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.pm | 6 |
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 { |