From 2c0680fa67635b0e35f03b96dacec0c2e085cae7 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 5 Dec 2001 23:05:13 +0000 Subject: (kernelVersion): looks at /boot/vmlinuz --- perl-install/install_any.pm | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) (limited to 'perl-install') diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index 93d70c3f8..09e567af4 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -227,11 +227,8 @@ sub allowNVIDIA_rpms { #-###################################################################################### sub kernelVersion { my ($o) = @_; - require pkgs; - my $p = pkgs::packageByName($o->{packages}, "kernel"); - $p ||= pkgs::packageByName($o->{packages}, "kernel22"); - $p or die "I couldn't find the kernel package!"; - pkgs::packageVersion($p) . "-" . pkgs::packageRelease($p); + my $kernel = readlink "$o->{prefix}/boot/vmlinuz" || first(all("$o->{prefix}/boot")); + first($kernel =~ /vmlinuz-(.*)/); } -- cgit v1.2.1