diff options
| -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 { |