From 10719cfebebf1705ac46b3e3fd6144207ad30f37 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Wed, 19 Mar 2008 10:43:05 +0000
Subject: do not unconfigure timezone if timezone screen is canceled (#33565)

---
 perl-install/any.pm       | 3 ++-
 perl-install/install/NEWS | 2 ++
 2 files changed, 4 insertions(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/any.pm b/perl-install/any.pm
index 83bc734e1..0422279c5 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -1335,7 +1335,8 @@ sub configure_timezone {
     my ($in, $timezone, $ask_gmt) = @_;
 
     require timezone;
-    $timezone->{timezone} = $in->ask_from_treelist(N("Timezone"), N("Which is your timezone?"), '/', [ timezone::getTimeZones() ], $timezone->{timezone}) or return;
+    my $selected_timezone = $in->ask_from_treelist(N("Timezone"), N("Which is your timezone?"), '/', [ timezone::getTimeZones() ], $timezone->{timezone}) or return;
+    $timezone->{timezone} = $selected_timezone;
 
     my $ntp = to_bool($timezone->{ntp});
     my $servers = timezone::ntp_servers();
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index fba0bfb0b..d199a5dc0 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,5 @@
+- do not unconfigure timezone if timezone screen is canceled (#33565)
+
 Version 10.16 - 18 March 2008
 
 - adduserdrake:
-- 
cgit v1.2.1