From f26262de85224f5fb42f994b325a96e1ad90dbac Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 25 Apr 2000 11:47:47 +0000
Subject: no_comment

---
 perl-install/install_steps_interactive.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index bd7dc556b..aca54a4cb 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -79,7 +79,7 @@ sub selectKeyboard($) {
     if ($::expert) {
 	my $langs = $o->ask_many_from_list('', 
 		_("You can choose other languages that will be available after install"),
-		[ sort lang::list() ]) or goto &selectLanguage if $::expert;
+		[ sort { $a cmp $b } lang::list() ]) or goto &selectLanguage;
 	$o->{langs} = [ $o->{lang}, grep_index { $langs->[$::i] } lang::list() ];
     }
 }
@@ -243,7 +243,7 @@ sub formatMountPartitions {
     fs::formatMount_all($o->{raid}, $o->{fstab}, $o->{prefix}, sub {
 	my ($part) = @_;
 	$w->set(isLoopback($part) ?
-		_("Creating and formatting loopback file %s", loopback::file($part)) :
+		_("Creating and formatting file %s", loopback::file($part)) :
 		_("Formatting partition %s", $part->{device}));
     });
     die _("Not enough swap to fulfill installation, please add some") if availableMemory < 40 * 1024;
-- 
cgit v1.2.1