diff options
| -rw-r--r-- | perl-install/bootloader.pm | 3 |
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; |