diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-08-30 18:50:40 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-08-30 18:50:40 +0000 |
| commit | 1defcba73b989b6a28826c563417a7c0fc251052 (patch) | |
| tree | 1d5bff21637dc8fb4f21fb9846ef6175c045d3f5 /perl-install/install_any.pm | |
| parent | fb80b8a8984779543f0f0c50d7f6dcb995e0ce96 (diff) | |
| download | drakx-1defcba73b989b6a28826c563417a7c0fc251052.tar drakx-1defcba73b989b6a28826c563417a7c0fc251052.tar.gz drakx-1defcba73b989b6a28826c563417a7c0fc251052.tar.bz2 drakx-1defcba73b989b6a28826c563417a7c0fc251052.tar.xz drakx-1defcba73b989b6a28826c563417a7c0fc251052.zip | |
no_comment
Diffstat (limited to 'perl-install/install_any.pm')
| -rw-r--r-- | perl-install/install_any.pm | 15 |
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; # |