diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-04-04 17:25:08 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-04-04 17:25:08 +0000 |
| commit | 65ac724a8fd1e1e554305562ecff102bfa2dc0b6 (patch) | |
| tree | 1e6914bb6237783b53bfc82c4e628dad02ca65e0 /perl-install/install_any.pm | |
| parent | 20ed5cd56bb433cba4b19e41d6baea4311b79eb2 (diff) | |
| download | drakx-backup-do-not-use-65ac724a8fd1e1e554305562ecff102bfa2dc0b6.tar drakx-backup-do-not-use-65ac724a8fd1e1e554305562ecff102bfa2dc0b6.tar.gz drakx-backup-do-not-use-65ac724a8fd1e1e554305562ecff102bfa2dc0b6.tar.bz2 drakx-backup-do-not-use-65ac724a8fd1e1e554305562ecff102bfa2dc0b6.tar.xz drakx-backup-do-not-use-65ac724a8fd1e1e554305562ecff102bfa2dc0b6.zip | |
(kernelVersion): cleanup
Diffstat (limited to 'perl-install/install_any.pm')
| -rw-r--r-- | perl-install/install_any.pm | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index 67d2a2dc5..f946806ab 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -197,17 +197,17 @@ sub clean_postinstall_rpms() { #-###################################################################################### sub kernelVersion { my ($o) = @_; - if(arch() !~ /ppc/) { - local $_ = readlink("$::o->{prefix}/boot/vmlinuz") and return first(/vmlinuz-(.*mdk)/); + if (my $link = (arch() !~ /ppc/) ? + readlink("$o->{prefix}/boot/vmlinuz") : + readlink("$o->{prefix}/boot/vmlinux")) { + $link =~ first(/-(.*mdk)/); } else { - local $_ = readlink("$::o->{prefix}/boot/vmlinux") and return first(/vmlinux-(.*mdk)/); - } - - require pkgs; - 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); + 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); + } } |