diff options
| -rw-r--r-- | perl-install/NEWS | 2 | ||||
| -rwxr-xr-x | perl-install/standalone/finish-install | 5 |
2 files changed, 5 insertions, 2 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS index a52da1e89..30bd01d74 100644 --- a/perl-install/NEWS +++ b/perl-install/NEWS @@ -1,3 +1,5 @@ +- finish-install: + o handle both "ll_CC" and "ll" locales parameter (#48352) - harddrake: o do not offer to install java plugin (#48520) diff --git a/perl-install/standalone/finish-install b/perl-install/standalone/finish-install index d751edeaa..2034ca255 100755 --- a/perl-install/standalone/finish-install +++ b/perl-install/standalone/finish-install @@ -40,8 +40,9 @@ sub ask_language() { require lang; $locale = lang::read(); my ($lang) = cat_("/proc/cmdline") =~ /\blang=(.+?)\b/; - if ($lang && member($lang, lang::list_langs(exclude_non_installed => 1))) { - put_in_hash($locale, lang::lang_to_ourlocale($lang)); + my $h = lang::lang_to_ourlocale($lang); + if ($lang && member($h->{lang}, lang::list_langs(exclude_non_installed => 1))) { + put_in_hash($locale, $h); lang::set($locale); } any::selectLanguage_standalone($in, $locale); |