From b323dd3df0352e75bd2bacf544246797e83ce6ae Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 19 Sep 2007 13:50:11 +0000
Subject: o handle /boot/xxx files on linux raid1

---
 perl-install/bootloader.pm | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'perl-install/bootloader.pm')

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index decb3a1d0..4cfad778f 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -1434,6 +1434,11 @@ sub device_string2grub {
 }
 sub device2grub {
     my ($device, $sorted_hds) = @_;
+
+    if (isRAID($device) && $device->{level} == 1) {
+	#- we can take any disk
+	$device = $device->{disks}[0];
+    }
     my ($hd, $part_nb) = 
       $device->{rootDevice} ?
 	(fs::get::device2part($device->{rootDevice}, $sorted_hds), $device->{device} =~ /(\d+)$/) :
-- 
cgit v1.2.1