diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/any.pm | 19 |
1 files changed, 14 insertions, 5 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm index 5eb8a2a36..b79c5e006 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -302,12 +302,21 @@ sub setupBootloader_simple { sub setupBootloader__boot_bios_drive { my ($in, $b, $hds) = @_; - bootloader::mixed_kind_of_disks($hds) && - $b->{boot} =~ /\d$/ && #- on a partition - is_empty_hash_ref($b->{bios}) && #- some bios mapping already there - arch() !~ /ppc/ or return 1; + if (arch() =~ /ppc/ || + !is_empty_hash_ref($b->{bios})) { + #- some bios mapping already there + return 1; + } elsif (bootloader::mixed_kind_of_disks($hds) && $b->{boot} =~ /\d$/) { #- on a partition + _ask_boot_bios_drive($in, $b, $hds); + } else { + 1; + } +} + +sub _ask_boot_bios_drive { + my ($in, $b, $hds) = @_; - log::l("mixed_kind_of_disks"); + log::l("_ask_boot_bios_drive"); my $hd = $in->ask_from_listf('', N("You decided to install the bootloader on a partition. This implies you already have a bootloader on the hard drive you boot (eg: System Commander). |