From 7836be4c18d16081800089f0e223454a0d835ebe Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Wed, 19 Mar 2003 17:06:18 +0000 Subject: silently use en_US for arabic. --- perl-install/lang.pm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/lang.pm b/perl-install/lang.pm index bf6813835..87b583bff 100644 --- a/perl-install/lang.pm +++ b/perl-install/lang.pm @@ -23,7 +23,7 @@ use log; my %langs = ( 'af' => [ 'Afrikaans', 'Afrikaans', 'af_ZA', ' 3 ', 'iso-8859-1' ], 'am' => [ 'Amharic', 'ZZ emarNa', 'am_ET', ' 3 ', 'utf_am' ], -#'ar' => [ 'Arabic', 'AA Arabic', 'ar_EG', ' 23 ', 'utf_ar' ], +'ar' => [ 'Arabic', 'AA Arabic', 'ar_EG', ' 23 ', 'utf_ar' ], 'az' => [ 'Azeri (Latin)', 'Azerbaycanca', 'az_AZ', ' 2 ', 'utf_az' ], 'be' => [ 'Belarussian', 'Belaruskaya', 'be_BY', '1 ', 'cp1251' ], 'bg' => [ 'Bulgarian', 'Blgarski', 'bg_BG', '1 ', 'cp1251' ], @@ -743,6 +743,9 @@ sub l2pango_font { sub set { my ($lang, $translate_for_console) = @_; + #- disable Arabic in install as no (free) fonts are available. + $lang eq 'ar' and $lang='en_US'; + exists $langs{$lang} or log::l("lang::set: trying to set to $lang but I don't know it!"), return; my $dir = "$ENV{SHARE_PATH}/locale"; -- cgit v1.2.1