From 978fcd163529573487bd3a0ab607821ee9cf66a6 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud 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(-) (limited to 'perl-install') 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