From 978fcd163529573487bd3a0ab607821ee9cf66a6 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Mon, 6 Apr 2015 22:30:15 +0200
Subject: simplify after latest commit

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

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 914217add..425036ba5 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -2055,7 +2055,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 member($part->{fs_type}, qw(xfs));
+	  if $part->{fs_type} eq 'xfs';
     }
     $bootloader->{keytable} = keytable($bootloader->{keytable});
     action($bootloader, 'install', $all_hds);
-- 
cgit v1.2.1