diff options
| -rw-r--r-- | perl-install/install2.pm | 9 | ||||
| -rw-r--r-- | perl-install/install_steps.pm | 9 |
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 {} |