From 99f5a321bc495689640ef7cea25cb7850c8dbd70 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Wed, 10 Feb 2016 23:15:09 +0100
Subject: use a variable (needed for next commit)

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

(limited to 'perl-install')

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 5a18edd9e..56fdb0479 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -300,7 +300,8 @@ sub read_grub2() {
     $bootloader{timeout} = $h{GRUB_TIMEOUT};
     $bootloader{entries} = [];
     my $entry;
-    foreach (cat_utf8("$::prefix/boot/grub2/grub.cfg")) {
+    my $f = "$::prefix/boot/grub2/grub.cfg";
+    foreach (cat_utf8($f)) {
 	next if /^#/;
 	if (/menuentry\s+['"]([^']+)["']/) {
 	    push @{$bootloader{entries}}, $entry if $entry;
-- 
cgit v1.2.1