summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install2.pm9
-rw-r--r--perl-install/install_steps.pm9
2 files changed, 9 insertions, 9 deletions
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index 741ff15b8..c168b7299 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -172,15 +172,6 @@ sub selectKeyboard {
return if !$::expert && !$clicked;
$o->selectKeyboard($clicked);
-
- #- if we go back to the selectKeyboard, you must rewrite
- addToBeDone {
- lang::write_langs($o->{prefix}, $o->{langs});
- } 'formatPartitions' unless $::g_auto_install;
- addToBeDone {
- lang::write($o->{prefix}, $o->{lang});
- keyboard::write($o->{prefix}, $o->{keyboard}, lang::lang2charset($o->{lang}));
- } 'installPackages' unless $::g_auto_install;
}
#------------------------------------------------------------------------------
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index c2dd27108..6d1f1093e 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -101,6 +101,15 @@ sub selectLanguage {
sub selectKeyboard {
my ($o) = @_;
keyboard::setup($o->{keyboard});
+
+ #- if we go back to the selectKeyboard, you must rewrite
+ addToBeDone {
+ lang::write_langs($o->{prefix}, $o->{langs});
+ } 'formatPartitions' unless $::g_auto_install;
+ addToBeDone {
+ lang::write($o->{prefix}, $o->{lang});
+ keyboard::write($o->{prefix}, $o->{keyboard}, lang::lang2charset($o->{lang}));
+ } 'installPackages' unless $::g_auto_install;
}
#------------------------------------------------------------------------------
sub selectPath {}