From 8ffe7cf47a95d4c27074bae33574ee8b8a1e6e94 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 5 Aug 2004 03:07:20 +0000
Subject: create bootloader::allowed_boot_parts() and use it, it allows
 installing on md0 if using lilo and md0 is raid1

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

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

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index e31249d9a..12b918474 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -310,6 +310,18 @@ sub suggest_onmbr {
     ($onmbr, $unsafe);
 }
 
+sub allowed_boot_parts {
+    my ($bootloader, $all_hds) = @_;
+    (
+     @{$all_hds->{hds}},
+     if_($bootloader->{method} =~ /lilo/,
+	 grep { $_  && $_->{level} eq '1' } @{$all_hds->{raids}}
+	),
+     (grep { !isFat_or_NTFS($_) } fs::get::hds_fstab(@{$all_hds->{hds}})),
+     detect_devices::floppies(),
+    );
+}
+
 sub same_entries {
     my ($a, $b) = @_;
 
-- 
cgit v1.2.1