diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2009-04-20 22:26:36 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2009-04-20 22:26:36 +0000 |
| commit | 8923219f1ad7c02035f2060fbddedff45b674891 (patch) | |
| tree | f7b948d5988c2f73683870b90c088594b76d81d0 /perl-install/standalone/finish-install | |
| parent | 0756f81db4bc8da0f5d5fd149d448a95e43535bf (diff) | |
| download | drakx-backup-do-not-use-8923219f1ad7c02035f2060fbddedff45b674891.tar drakx-backup-do-not-use-8923219f1ad7c02035f2060fbddedff45b674891.tar.gz drakx-backup-do-not-use-8923219f1ad7c02035f2060fbddedff45b674891.tar.bz2 drakx-backup-do-not-use-8923219f1ad7c02035f2060fbddedff45b674891.tar.xz drakx-backup-do-not-use-8923219f1ad7c02035f2060fbddedff45b674891.zip | |
(ask_language) handle both "ll_CC" and "ll" locales parameter (#49914)
Diffstat (limited to 'perl-install/standalone/finish-install')
| -rwxr-xr-x | perl-install/standalone/finish-install | 5 |
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); |