From 9c28f1e61a447052bdccb3364174745ac7cafa29 Mon Sep 17 00:00:00 2001
From: Pascal Terjan <pterjan@gmail.com>
Date: Wed, 27 Aug 2014 21:11:05 +0000
Subject: Allow /boot on btrfs

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

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

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 4d0005cd7..885c30dfa 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -1270,8 +1270,8 @@ sub method_choices {
     my $have_dmraid = find { fs::type::is_dmraid($_) } @{$all_hds->{hds}};
 
     grep {
-	!(/lilo/ && (isLoopback($root_part) || $have_dmraid))
-	  && !(/grub/ && isRAID($boot_part))
+	!(/lilo/ && (isLoopback($root_part) || $have_dmraid ||
+	  $boot_part->{fs_type} eq 'btrfs'))
 	  && !(/grub-graphic/ && cat_("/proc/cmdline") =~ /console=ttyS/);
     } method_choices_raw($b_prefix_mounted);
 }
-- 
cgit v1.2.1