From 9485e67879e02d29d4fd04b9d3ad50883b60019c Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 23 Jun 2004 03:46:18 +0000
Subject: kernelVersion() is unused (only bootloader::mkbootdisk() used it, and
 it has already been removed)

---
 perl-install/any.pm | 5 -----
 1 file changed, 5 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/any.pm b/perl-install/any.pm
index 9679fb1fd..2683a6981 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -78,11 +78,6 @@ sub hdInstallPath() {
     defined $tail && ($head ? "$head/$tail" : "/mnt/hd/$tail");
 }
 
-sub kernelVersion() {
-    my $kernel = readlink("$::prefix/boot/vmlinuz") || first(all("$::prefix/boot"));
-    first($kernel =~ /vmlinuz-(.*)/);
-}
-
 sub setupBootloader {
     my ($in, $b, $all_hds, $fstab, $security) = @_;
     my $hds = $all_hds->{hds};
-- 
cgit v1.2.1