summaryrefslogtreecommitdiffstats
path: root/perl-install/bootloader.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/bootloader.pm')
-rw-r--r--perl-install/bootloader.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 0b41bd5b9..48c905420 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -196,7 +196,7 @@ sub add_kernel {
symlinkf("initrd-$version.img", "$::prefix$initrd") or cp_af("$::prefix/boot/initrd-$version.img", "$::prefix$initrd");
}
- my $label = $ext =~ /-(default)/ ? $1 : $ext =~ /\d\./ ? sanitize_ver("linux$ext") : "linux$ext";
+ my $label = $ext =~ /-(default)/ ? $1 : ($ext =~ /\d\./ ? sanitize_ver("linux$ext") : "linux$ext");
#- more yaboot concessions - PPC
if (arch() =~ /ppc/) {
@@ -489,6 +489,7 @@ wait %d seconds for default boot.
my %nbs;
foreach (@$hds) {
foreach (@{$_->{primary}{normal}}) {
+ my $from_magic = { type => fsedit::typeOfPart($_->{device}) };
my $label = isNT($_) ? 'NT' : isDos($_) ? 'dos' : 'windows';
add_entry($lilo,
{
@@ -499,7 +500,7 @@ wait %d seconds for default boot.
table => "/dev/$_->{rootDevice}"
),
unsafe => 1
- }) if isNT($_) || isFat($_) && isFat({ type => fsedit::typeOfPart($_->{device}) });
+ }) if isNT($from_magic) || isFat($from_magic);
}
}
}