From 99f5a321bc495689640ef7cea25cb7850c8dbd70 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud 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