diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2008-03-21 07:55:32 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2008-03-21 07:55:32 +0000 |
| commit | c7fc02ade71cad25b5b749ec1473c836f3dc7e10 (patch) | |
| tree | 1c363b01757664f3a19b3820dfac0fd429cb58af /perl-install/lang.pm | |
| parent | cd999d1a5d5b8767f3f268f0a11e85cc45a52632 (diff) | |
| download | drakx-c7fc02ade71cad25b5b749ec1473c836f3dc7e10.tar drakx-c7fc02ade71cad25b5b749ec1473c836f3dc7e10.tar.gz drakx-c7fc02ade71cad25b5b749ec1473c836f3dc7e10.tar.bz2 drakx-c7fc02ade71cad25b5b749ec1473c836f3dc7e10.tar.xz drakx-c7fc02ade71cad25b5b749ec1473c836f3dc7e10.zip | |
- correctly set country when given lang=xxx on /proc/cmdline
(regression introduced in 10.16) (#39104)
Diffstat (limited to 'perl-install/lang.pm')
| -rw-r--r-- | perl-install/lang.pm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm index 6e1dfbcfc..28b447e95 100644 --- a/perl-install/lang.pm +++ b/perl-install/lang.pm @@ -1037,6 +1037,14 @@ sub system_locales_to_ourlocale { $locale; } +sub lang_to_ourlocale { + my ($lang) = @_; + + my $locale = system_locales_to_ourlocale($lang); + lang_changed($locale); + $locale; +} + sub lang_changed { my ($locale) = @_; my $h = analyse_locale_name(l2locale($locale->{lang})); |