1 files changed, 10 insertions, 5 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 5dfea7d79..70568a512 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -29,11 +29,8 @@ sub getFile($) {
 }
 
 sub versionString {
-    my $kernel = $::o->{packages}{kernel};
-    $kernel && $kernel->{header} or die "I couldn't find the kernel package!";
-    
-    c::headerGetEntry($kernel->{header}, 'version') . "-" .
-    c::headerGetEntry($kernel->{header}, 'release');
+    local $_ = readlink("$::o->{prefix}/boot/vmlinuz") or die "I couldn't find the kernel package!";
+    first(/vmlinuz-(.*)/);
 }
 
 
@@ -107,6 +104,14 @@ sub addToBeDone(&$) {
     push @{$::o->{steps}{$step}{toBeDone}}, $f;
 }
 
+sub getTimeZones {
+    local *F;
+    open F, "cd /usr/share/zoneinfo && find [A-Z]* -type f |";
+    my @l = sort map { chop; $_ } <F>;
+    close F or die "cannot list the available zoneinfos";
+    @l;
+}
+
 sub upgrFindInstall {
 #    int rc;
 #