summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2016-02-10 23:15:09 +0100
committerThierry Vignaud <thierry.vignaud@gmail.com>2016-02-10 23:15:09 +0100
commit99f5a321bc495689640ef7cea25cb7850c8dbd70 (patch)
treea583064fce3ff34695e1e04aa8247ca654e89b44 /perl-install
parent22fad299b22f2986664722e5d0482944d9227105 (diff)
downloaddrakx-99f5a321bc495689640ef7cea25cb7850c8dbd70.tar
drakx-99f5a321bc495689640ef7cea25cb7850c8dbd70.tar.gz
drakx-99f5a321bc495689640ef7cea25cb7850c8dbd70.tar.bz2
drakx-99f5a321bc495689640ef7cea25cb7850c8dbd70.tar.xz
drakx-99f5a321bc495689640ef7cea25cb7850c8dbd70.zip
use a variable (needed for next commit)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/bootloader.pm3
1 files changed, 2 insertions, 1 deletions
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;