summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/finish-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone/finish-install')
-rwxr-xr-xperl-install/standalone/finish-install5
1 files changed, 3 insertions, 2 deletions
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);