From 1db729772f0612c1810956632318cd79e190651b Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Wed, 10 Sep 2008 16:02:13 +0000
Subject: guess country from timezone when possible (#23303)

---
 perl-install/standalone/finish-install | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'perl-install/standalone/finish-install')

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);
 }
-- 
cgit v1.2.1