From f26262de85224f5fb42f994b325a96e1ad90dbac Mon Sep 17 00:00:00 2001 From: Pascal Rigaux 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