summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/any.pm8
1 files changed, 2 insertions, 6 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index b79c5e006..0955ea526 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -307,14 +307,10 @@ sub setupBootloader__boot_bios_drive {
#- 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);
+ # see below
} else {
- 1;
+ return 1;
}
-}
-
-sub _ask_boot_bios_drive {
- my ($in, $b, $hds) = @_;
log::l("_ask_boot_bios_drive");
my $hd = $in->ask_from_listf('', N("You decided to install the bootloader on a partition.