summaryrefslogtreecommitdiffstats
path: root/perl-install/any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2008-01-11 13:06:22 +0000
committerPascal Rigaux <pixel@mandriva.com>2008-01-11 13:06:22 +0000
commit8fd384c7c95a38f252fb10b93effb7b8399d8c54 (patch)
treeb6195ef486c118e9dc94e956e9f61f1003fddf22 /perl-install/any.pm
parent910d0bdeb5b5c7b406e8ad2693ed9579c8681ca7 (diff)
downloaddrakx-backup-do-not-use-8fd384c7c95a38f252fb10b93effb7b8399d8c54.tar
drakx-backup-do-not-use-8fd384c7c95a38f252fb10b93effb7b8399d8c54.tar.gz
drakx-backup-do-not-use-8fd384c7c95a38f252fb10b93effb7b8399d8c54.tar.bz2
drakx-backup-do-not-use-8fd384c7c95a38f252fb10b93effb7b8399d8c54.tar.xz
drakx-backup-do-not-use-8fd384c7c95a38f252fb10b93effb7b8399d8c54.zip
- do not sort languages in "choose language" step in graphical mode, since the
sort is done on the non-translated strings (eg: we display "Espanol" but we sort on Spanish )
Diffstat (limited to 'perl-install/any.pm')
-rw-r--r--perl-install/any.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index d59886d6a..fa8d3c158 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -967,7 +967,7 @@ when your installation is complete and you restart your system.")),
{ val => \$lang, separator => '|',
if_($using_images, image2f => sub { $name2l{$_[0]} =~ /^[a-z]/ && "langs/lang-$name2l{$_[0]}" }),
format => sub { $_[0] =~ /(.*\|)(.*)/ ? $1 . lang::l2name($2) : lang::l2name($_[0]) },
- list => \@langs, changed => sub {
+ list => \@langs, sort => !$in->isa('interactive::gtk'), changed => sub {
#- very special cases for langs which do not like UTF-8
$non_utf8 = $lang =~ /\bzh/ if !$utf8_forced;
}, focus_out => sub { $langs->{$listval2val->($lang)} = 1 } },