summaryrefslogtreecommitdiffstats
path: root/perl-install/bootloader.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2008-03-20 14:40:16 +0000
committerPascal Rigaux <pixel@mandriva.com>2008-03-20 14:40:16 +0000
commitcd84f77f9b283caf4f506e8f4d68182a3b642ff3 (patch)
treea23efd3d6d208558a762a12c55c152b44e1d471c /perl-install/bootloader.pm
parent3b7fe6affb5c80c265c567d0261638e58fade2db (diff)
downloaddrakx-cd84f77f9b283caf4f506e8f4d68182a3b642ff3.tar
drakx-cd84f77f9b283caf4f506e8f4d68182a3b642ff3.tar.gz
drakx-cd84f77f9b283caf4f506e8f4d68182a3b642ff3.tar.bz2
drakx-cd84f77f9b283caf4f506e8f4d68182a3b642ff3.tar.xz
drakx-cd84f77f9b283caf4f506e8f4d68182a3b642ff3.zip
- ask which drive to install bootloader if we don't really know which is first
bios drive (cf #38829)
Diffstat (limited to 'perl-install/bootloader.pm')
-rw-r--r--perl-install/bootloader.pm9
1 files changed, 9 insertions, 0 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index d873d5eaa..3b229aecc 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -1448,10 +1448,19 @@ sub hd2bios_kind {
lc(join('_', $hd->{bus}, $hd->{host}));
}
+sub ensafe_first_bios_drive {
+ my ($hds) = @_;
+ mixed_kind_of_disks($hds) || @$hds > 1 && _not_first_bios_drive($hds->[0]);
+}
sub mixed_kind_of_disks {
my ($hds) = @_;
(uniq_ { hd2bios_kind($_) } @$hds) > 1;
}
+sub _not_first_bios_drive {
+ my ($hd) = @_;
+ my $bios = $hd && $hd->{bios_from_edd};
+ $bios && $bios ne '80';
+}
sub sort_hds_according_to_bios {
my ($bootloader, $all_hds) = @_;