From b03b5236519fdef9722188318f639166e78a0043 Mon Sep 17 00:00:00 2001
From: Stew Benedict <stewb@mandriva.org>
Date: Wed, 4 Apr 2001 15:41:03 +0000
Subject: kernelVersion mods for PPC

---
 perl-install/install_any.pm | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

(limited to 'perl-install/install_any.pm')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index ddcdd9a27..67d2a2dc5 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -197,10 +197,16 @@ sub clean_postinstall_rpms() {
 #-######################################################################################
 sub kernelVersion {
     my ($o) = @_;
-    local $_ = readlink("$::o->{prefix}/boot/vmlinuz") and return first(/vmlinuz-(.*mdk)/);
+    if(arch() !~ /ppc/) {
+	local $_ = readlink("$::o->{prefix}/boot/vmlinuz") and return first(/vmlinuz-(.*mdk)/);
+    } else {
+	local $_ = readlink("$::o->{prefix}/boot/vmlinux") and return first(/vmlinux-(.*mdk)/);
+    } 
 
     require pkgs;
-    my $p = pkgs::packageByName($o->{packages}, "kernel") or die "I couldn't find the kernel package!";
+    my $kpkgname = "kernel";
+    $kpkgname = "kernel22" if arch() =~ /ppc/; #- still using 2.2 for PPC
+    my $p = pkgs::packageByName($o->{packages}, "$kpkgname") or die "I couldn't find the kernel package!";
     pkgs::packageVersion($p) . "-" . pkgs::packageRelease($p);
 }
 
-- 
cgit v1.2.1