summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
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 {