diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2000-04-15 21:31:11 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2000-04-15 21:31:11 +0000 |
commit | 9cdb9f0d0ea484f8454be24d94a4e179138c70b8 (patch) | |
tree | e8fef59b2d476a8aba48a1edf828888ec9e87df6 /perl-install/install2.pm | |
parent | fb2657dc463c4f3053ba243654aa1271ffa4588c (diff) | |
download | drakx-9cdb9f0d0ea484f8454be24d94a4e179138c70b8.tar drakx-9cdb9f0d0ea484f8454be24d94a4e179138c70b8.tar.gz drakx-9cdb9f0d0ea484f8454be24d94a4e179138c70b8.tar.bz2 drakx-9cdb9f0d0ea484f8454be24d94a4e179138c70b8.tar.xz drakx-9cdb9f0d0ea484f8454be24d94a4e179138c70b8.zip |
no_comment
Diffstat (limited to 'perl-install/install2.pm')
-rw-r--r-- | perl-install/install2.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/perl-install/install2.pm b/perl-install/install2.pm index 75a3f5fdb..152180a84 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -42,7 +42,7 @@ my (%installSteps, @orderedInstallSteps); my @installSteps = ( selectLanguage => [ __("Choose your language"), 1, 1, '' ], selectInstallClass => [ __("Select installation class"), 1, 1, '' ], - setupSCSI => [ __("Setup SCSI"), 1, 0, '' ], + setupSCSI => [ __("Hard drive detection"), 1, 0, '' ], selectMouse => [ __("Configure mouse"), 1, 1, 'beginner', "selectInstallClass" ], selectKeyboard => [ __("Choose your keyboard"), 1, 1, '', "selectInstallClass" ], miscellaneous => [ __("Miscellaneous"), 1, 1, 'beginner' ], @@ -145,7 +145,7 @@ $o = $::o = { #- security => 2, shells => [ map { "/bin/$_" } qw(bash tcsh zsh ash ksh) ], authentication => { md5 => 1, shadow => 1 }, - lang => 'fr_FR', + lang => 'en', isUpgrade => 0, toRemove => [], toSave => [], @@ -502,7 +502,7 @@ sub main { $::beginner = $::expert = $::g_auto_install = 0; - c::unlimit_core(); + c::unlimit_core() unless $::testing; my ($cfg, $patch); my %cmdline; map { @@ -651,6 +651,8 @@ sub main { eval { modules::load("af_packet") }; + lang::set($o->{lang}, $o->{langs}); + #-the main cycle my $clicked = 0; MAIN: for ($o->{step} = $o->{steps}{first};; $o->{step} = getNextStep()) { |