From adfebc5bb2c3ef4c14bea85ef4b5112f13453745 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Wed, 25 Mar 2015 09:14:09 -0400
Subject: reuse is_uefi()

---
 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 0ee49b862..6ea0c23d4 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -2058,7 +2058,7 @@ sub install {
 sub ensure_pkg_is_installed {
     my ($do_pkgs, $bootloader) = @_;
 
-    my %pkg = ('grub2' => glob_("/sys/firmware/efi/*") ? 'grub2-efi' : 'grub2');
+    my %pkg = ('grub2' => is_uefi() ? 'grub2-efi' : 'grub2');
     my %h = ('grub2' => 'grub2-install');
     my $main_method = main_method($bootloader->{method});
     if (member($main_method, qw(grub grub2 lilo))) {
-- 
cgit v1.2.1