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 | |
parent | 3b7fe6affb5c80c265c567d0261638e58fade2db (diff) | |
download | drakx-backup-do-not-use-cd84f77f9b283caf4f506e8f4d68182a3b642ff3.tar drakx-backup-do-not-use-cd84f77f9b283caf4f506e8f4d68182a3b642ff3.tar.gz drakx-backup-do-not-use-cd84f77f9b283caf4f506e8f4d68182a3b642ff3.tar.bz2 drakx-backup-do-not-use-cd84f77f9b283caf4f506e8f4d68182a3b642ff3.tar.xz drakx-backup-do-not-use-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')
-rw-r--r-- | perl-install/any.pm | 13 | ||||
-rw-r--r-- | perl-install/bootloader.pm | 9 | ||||
-rw-r--r-- | perl-install/install/NEWS | 2 |
3 files changed, 18 insertions, 6 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm index ffa11e00d..b952ad1f6 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -282,13 +282,10 @@ sub setupBootloader_simple { my $hds = $all_hds->{hds}; require bootloader; - my $mixed_kind_of_disks = bootloader::mixed_kind_of_disks($hds); - #- full expert questions when there is 2 kind of disks - #- it would need a semi_auto asking on which drive the bios boots... - - $mixed_kind_of_disks || $b->{bootUnsafe} || arch() =~ /ppc/ or return 1; #- default is good enough + bootloader::ensafe_first_bios_drive($hds) + || $b->{bootUnsafe} || arch() =~ /ppc/ or return 1; #- default is good enough - if (!$mixed_kind_of_disks && arch() !~ /ia64/) { + if (arch() !~ /ia64/) { setupBootloader__mbr_or_not($in, $b, $hds, $fstab) or return 0; } else { general: @@ -336,7 +333,11 @@ sub setupBootloader__mbr_or_not { my $floppy = detect_devices::floppy(); my @l = ( + bootloader::ensafe_first_bios_drive($hds) ? + (map { [ N("First sector (MBR) of drive %s", partition_table::description($_)) => '/dev/' . $_->{device} ] } @$hds) + : [ N("First sector of drive (MBR)") => '/dev/' . $hds->[0]{device} ], + [ N("First sector of the root partition") => '/dev/' . fs::get::root($fstab, 'boot')->{device} ], if_($floppy, [ N("On Floppy") => "/dev/$floppy" ], 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) = @_; diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS index 08ceceac7..24b444482 100644 --- a/perl-install/install/NEWS +++ b/perl-install/install/NEWS @@ -1,3 +1,5 @@ +- ask which drive to install bootloader if we don't really know which is first + bios drive (cf #38829) - fix reading alternatives in install Version 10.17 - 20 March 2008 |