From bdf616f404eb81f2a6456ab95a3851df0cb3aaf7 Mon Sep 17 00:00:00 2001
From: Pascal Terjan <pterjan@mandriva.org>
Date: Tue, 10 Feb 2009 10:06:42 +0000
Subject: Use fs::get::part2hd instead of reinventing it

---
 perl-install/bootloader.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install')

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};
     }
-- 
cgit v1.2.1