From 55c49b24ae244338993146137120f48fff8cff6c Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 10 Dec 2012 03:14:04 +0000 Subject: (charset2pango_font) simplify --- perl-install/lang.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/lang.pm b/perl-install/lang.pm index 3de0a1a14..96f963bab 100644 --- a/perl-install/lang.pm +++ b/perl-install/lang.pm @@ -957,7 +957,7 @@ my %charset2pango_font = ( sub charset2pango_font { my ($charset) = @_; - $charset2pango_font{exists $charset2pango_font{$charset} ? $charset : 'default'}; + $charset2pango_font{$charset} || $charset2pango_font{default}; } sub l2pango_font { -- cgit v1.2.1