have "all languages" and "utf8" before the list of languages, per request of pablo

1 files changed, 9 insertions, 9 deletions

diff --git a/perl-install/any.pm b/perl-install/any.pm
index a59eb925c..db555585e 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -642,15 +642,15 @@ when your installation is complete and you restart your system.")),
 	    if_($using_images, image2f => sub { $name2l{$_[0]} =~ /^[a-z]/ ? ('', "langs/lang-$name2l{$_[0]}") : $_[0] }),
 	    format => sub { $_[0] =~ /(.*\|)(.*)/; $1.lang::l2name($2) },
 	    list => \@langs, sort => 0 },
-	    if_($langs_, (map {
-		{ val => \$langs->{$_->[0]}, type => 'bool', disabled => sub { $langs->{all} },
-		  text => $_->[1], advanced => 1,
-		  image => "langs/lang-$_->[0]",
-		} 
-	    } sort { $a->[1] cmp $b->[1] } map { [ $_, $sort_func->($_) ] } lang::list_langs()),
-		{ val => \$langs->{all}, type => 'bool', text => N("All"), advanced => 1 },
-		if_($::isInstall,
-		    { val => \$in->{locale}{utf8}, type => 'bool', text => N("Use Unicode by default"), advanced => 1 }))
+	    if_($langs_, if_($::isInstall,
+			     { val => \$in->{locale}{utf8}, type => 'bool', text => N("Use Unicode by default"), advanced => 1 }),
+		{ val => \$langs->{all}, type => 'bool', text => N("All languages"), advanced => 1 },
+	        map {
+		  { val => \$langs->{$_->[0]}, type => 'bool', disabled => sub { $langs->{all} },
+		    text => $_->[1], advanced => 1,
+		    image => "langs/lang-$_->[0]",
+		  } 
+	      } sort { $a->[1] cmp $b->[1] } map { [ $_, $sort_func->($_) ] } lang::list_langs())
 	]) or return;
     $langs->{$listval2val->($lang)} = 1;
     $langs->{$_} or delete $langs->{$_} foreach keys %$langs;  #- clean hash