diff options
| -rw-r--r-- | perl-install/NEWS | 2 | ||||
| -rwxr-xr-x | perl-install/standalone/finish-install | 6 |
2 files changed, 6 insertions, 2 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS index 94378ba60..e9d4cb06c 100644 --- a/perl-install/NEWS +++ b/perl-install/NEWS @@ -1,4 +1,6 @@ - do_pkgs: do not reload urpmi media at every check for package availability +- finish-install: set locale at first step when language is selected + in gfxmenu (#42299) Version 11.10.2 - 18 August 2008 diff --git a/perl-install/standalone/finish-install b/perl-install/standalone/finish-install index 077060fd5..35fadb051 100755 --- a/perl-install/standalone/finish-install +++ b/perl-install/standalone/finish-install @@ -39,8 +39,10 @@ sub ask_language() { require lang; $locale = lang::read(); my ($lang) = cat_("/proc/cmdline") =~ /\blang=(.+?)\b/; - put_in_hash($locale, lang::lang_to_ourlocale($lang)) - if $lang && member($lang, lang::list_langs(exclude_non_installed => 1)); + if ($lang && member($lang, lang::list_langs(exclude_non_installed => 1))) { + put_in_hash($locale, lang::lang_to_ourlocale($lang)); + lang::set($locale); + } any::selectLanguage_and_more_standalone($in, $locale); lang::write_and_install($locale, $in->do_pkgs); } |