From 1296c882f30f667a4cba902b4a4a5138f49b6838 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Fri, 10 Jun 2016 17:38:51 +0200
Subject: perl_checker cleanup

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

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

diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm
index d67ce0856..2e4904bc0 100644
--- a/perl-install/fsedit.pm
+++ b/perl-install/fsedit.pm
@@ -50,7 +50,7 @@ sub init_efi_suggestions {
     my $mntpoint;
     # only suggests /boot/EFI if there's not already one:
     if (is_uefi()) {
-	if (!grep { isESP($_) } @$fstab) {
+	if (!any { isESP($_) } @$fstab) {
 	    $mntpoint = { mntpoint => "/boot/EFI", size => MB(100), pt_type => 0xef, ratio => 1, maxsize => MB(300) };
 	}
     }
-- 
cgit v1.2.1