summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/install/NEWS3
-rw-r--r--perl-install/install/install2.pm2
-rw-r--r--perl-install/lang.pm8
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}));