guess country from timezone when possible (#23303)

1 files changed, 10 insertions, 0 deletions

diff --git a/perl-install/standalone/finish-install b/perl-install/standalone/finish-install
index f7d100201..b7d98ae3d 100755
--- a/perl-install/standalone/finish-install
+++ b/perl-install/standalone/finish-install
@@ -78,6 +78,16 @@ sub ask_timezone() {
 sub ask_country() {
     require lang;
     $locale ||= lang::read();
+    require Time::ZoneInfo;
+    my $zones = Time::ZoneInfo->new;
+    if ($timezone && $zones) {
+        #- guess only if timezone has been asked already
+        if (my $zone = $zones->current_zone) {
+            if (my $country_code = $zones->country($zone)) {
+                $locale->{country} = $country_code;
+            }
+        }
+    }
     any::selectCountry($in, $locale);
     lang::write_and_install($locale, $in->do_pkgs);
 }