diff options
author | Thierry Vignaud <tv@mageia.org> | 2012-12-10 03:14:04 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mageia.org> | 2012-12-10 03:14:04 +0000 |
commit | 55c49b24ae244338993146137120f48fff8cff6c (patch) | |
tree | 83f70640329fed8523d706168d90f85949dc1d33 /perl-install | |
parent | 513ab2fce7d7df5c511e829573caa03bbfcaa73b (diff) | |
download | drakx-55c49b24ae244338993146137120f48fff8cff6c.tar drakx-55c49b24ae244338993146137120f48fff8cff6c.tar.gz drakx-55c49b24ae244338993146137120f48fff8cff6c.tar.bz2 drakx-55c49b24ae244338993146137120f48fff8cff6c.tar.xz drakx-55c49b24ae244338993146137120f48fff8cff6c.zip |
(charset2pango_font) simplify
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/lang.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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 { |