summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/bootloader.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 095c581d2..c0245852c 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -981,7 +981,7 @@ sub suggest {
# If installing onto an USB drive, put the mbr there, else on the first non removable drive
if ($root_part->{is_removable}) {
- $mbr = find { $_->{device} eq $root_part->{rootDevice} } $all_hds->{hds};
+ $mbr = fs::get::part2hd($root_part, $all_hds);
} else {
$mbr = find { !$_->{is_removable} } $all_hds->{hds};
}