diff options
| -rw-r--r-- | perl-install/install/NEWS | 3 | ||||
| -rw-r--r-- | perl-install/install/install2.pm | 2 | ||||
| -rw-r--r-- | perl-install/lang.pm | 8 |
3 files changed, 12 insertions, 1 deletions
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS index cc4255a35..9b6b654f6 100644 --- a/perl-install/install/NEWS +++ b/perl-install/install/NEWS @@ -1,3 +1,6 @@ +- correctly set country when given lang=xxx on /proc/cmdline + (regression introduced in 10.16) (#39104) + Version 10.18 - 21 March 2008 - when reformatting swap, keep existing UUID (#38877) diff --git a/perl-install/install/install2.pm b/perl-install/install/install2.pm index 9f2dda1cc..ab09f0874 100644 --- a/perl-install/install/install2.pm +++ b/perl-install/install/install2.pm @@ -522,7 +522,7 @@ sub main { #- for auto_install compatibility with old $o->{lang}, #- and also for --lang and --flang if ($o->{lang}) { - put_in_hash($o->{locale}, lang::system_locales_to_ourlocale($o->{lang}, $o->{lang})); + put_in_hash($o->{locale}, lang::lang_to_ourlocale($o->{lang})); } lang::set($o->{locale}); 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})); |