summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-12-10 03:14:04 +0000
committerThierry Vignaud <tv@mageia.org>2012-12-10 03:14:04 +0000
commit55c49b24ae244338993146137120f48fff8cff6c (patch)
tree83f70640329fed8523d706168d90f85949dc1d33 /perl-install
parent513ab2fce7d7df5c511e829573caa03bbfcaa73b (diff)
downloaddrakx-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.pm2
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 {