summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm4
1 files 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;