summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-04-25 11:47:47 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-04-25 11:47:47 +0000
commitf26262de85224f5fb42f994b325a96e1ad90dbac (patch)
tree40d9d95ca18f052a0e5e98d79dbfc82f7f33e8e3 /perl-install
parent1ada385e0602d70029cc9f77cdba15fd5f531d95 (diff)
downloaddrakx-f26262de85224f5fb42f994b325a96e1ad90dbac.tar
drakx-f26262de85224f5fb42f994b325a96e1ad90dbac.tar.gz
drakx-f26262de85224f5fb42f994b325a96e1ad90dbac.tar.bz2
drakx-f26262de85224f5fb42f994b325a96e1ad90dbac.tar.xz
drakx-f26262de85224f5fb42f994b325a96e1ad90dbac.zip
no_comment
Diffstat (limited to 'perl-install')
-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;