diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2008-03-20 14:40:16 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2008-03-20 14:40:16 +0000 |
| commit | cd84f77f9b283caf4f506e8f4d68182a3b642ff3 (patch) | |
| tree | a23efd3d6d208558a762a12c55c152b44e1d471c /perl-install/bootloader.pm | |
| parent | 3b7fe6affb5c80c265c567d0261638e58fade2db (diff) | |
| download | drakx-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.pm | 9 |
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) = @_; |