From 900590657e31ed9da66718da7d7fdbe59408c226 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Sat, 28 Apr 2012 19:49:53 +0000
Subject: (install,check_mntpoint) forbid having /boot as btrfs (mga#5627)

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

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

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index c7546a125..757b3022e 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -1968,7 +1968,7 @@ sub install {
 
     if (my $part = fs::get::device2part($bootloader->{boot}, [ fs::get::fstab($all_hds) ])) {
 	die N("You cannot install the bootloader on a %s partition\n", $part->{fs_type})
-	  if $part->{fs_type} eq 'xfs';
+	  if member($part->{fs_type}, qw(btrfs xfs));
     }
     $bootloader->{keytable} = keytable($bootloader->{keytable});
     action($bootloader, 'install', $all_hds);
-- 
cgit v1.2.1