diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2016-02-10 23:15:09 +0100 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2016-02-10 23:15:09 +0100 |
| commit | 99f5a321bc495689640ef7cea25cb7850c8dbd70 (patch) | |
| tree | a583064fce3ff34695e1e04aa8247ca654e89b44 /perl-install | |
| parent | 22fad299b22f2986664722e5d0482944d9227105 (diff) | |
| download | drakx-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.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; |