1 files changed, 5 insertions, 4 deletions
diff --git a/perl-install/timezone.pm b/perl-install/timezone.pm
index 96fb0510e..cd0486138 100644
--- a/perl-install/timezone.pm
+++ b/perl-install/timezone.pm
@@ -17,11 +17,12 @@ sub getTimeZones {
     @l;
 }
 
-sub read ($) {
-    my ($f) = @_;
-    my %t = getVarsFromSh($f) or die "cannot open file $f: $!";
+sub read {
+    my ($prefix) = @_;
+    my $f = "$prefix/etc/sysconfig/clock";
+    my %t = getVarsFromSh($f) or return;
 
-    ("timezone", $t{ZONE}, "UTC", text2bool($t{UTC}));
+    (timezone => $t{ZONE}, UTC => text2bool($t{UTC}));
 }
 
 sub write {