- ask which drive to install bootloader if we don't really know which is first

  bios drive (cf #38829)

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) = @_;