diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2003-10-15 17:25:00 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2003-10-15 17:25:00 +0000 |
| commit | 142f585b52055ad9552339d91aaa4f06183d91ed (patch) | |
| tree | d96cbd0988d06a7ad429c9684723e139711fc2da /perl-install | |
| parent | 17907ebbd3388f6773d2715a7b1335ebacde5a19 (diff) | |
| download | drakx-142f585b52055ad9552339d91aaa4f06183d91ed.tar drakx-142f585b52055ad9552339d91aaa4f06183d91ed.tar.gz drakx-142f585b52055ad9552339d91aaa4f06183d91ed.tar.bz2 drakx-142f585b52055ad9552339d91aaa4f06183d91ed.tar.xz drakx-142f585b52055ad9552339d91aaa4f06183d91ed.zip | |
maybe perl_checker should have told me? but that's a bit
complicated for his poor soul?
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/any.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm index 160a58d4c..f136bfb4f 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -683,7 +683,7 @@ sub selectLanguage { my %name2l = map { lang::l2name($_) => $_ } lang::list_langs(); my $listval2val = sub { $_[0] =~ /\|(.*)/ ? $1 : $_[0] }; - my @langs = map { my $l = $_; uniq_ { $_->[0] } map { [ ($::move ? $l : "$_|$l"), $_, $l ] } lang::l2location($l) } lang::list_langs(); + my @langs = map { my $l = $_; uniq_ { $_->[0] } map { [ $::move ? $l : "$_|$l", $_, $l ] } lang::l2location($l) } lang::list_langs(); #- since gtk version will use images (function image2f) we need to sort differently my $sort_func = $using_images ? \&lang::l2transliterated : \&lang::l2name; @langs = map { $_->[0] } sort { $sort_func->($a->[2]) cmp $sort_func->($b->[2]) } @langs; |