diff options
author | Thierry Vignaud <tv@mageia.org> | 2013-02-26 06:36:01 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mageia.org> | 2013-02-26 06:36:01 +0000 |
commit | bfd6a881ceec794363833d6357cc150f898b6e2f (patch) | |
tree | 895435b658d0ccaaf7f6ab555741b90195bd89c7 /perl-install/bootloader.pm | |
parent | d4f516bb86643d806502468b6b3d6e40a77094cf (diff) | |
download | drakx-backup-do-not-use-bfd6a881ceec794363833d6357cc150f898b6e2f.tar drakx-backup-do-not-use-bfd6a881ceec794363833d6357cc150f898b6e2f.tar.gz drakx-backup-do-not-use-bfd6a881ceec794363833d6357cc150f898b6e2f.tar.bz2 drakx-backup-do-not-use-bfd6a881ceec794363833d6357cc150f898b6e2f.tar.xz drakx-backup-do-not-use-bfd6a881ceec794363833d6357cc150f898b6e2f.zip |
(read_grub2) add basic support for reading back grub2 config
Diffstat (limited to 'perl-install/bootloader.pm')
-rw-r--r-- | perl-install/bootloader.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm index 9e8a7d66a..68df8acd3 100644 --- a/perl-install/bootloader.pm +++ b/perl-install/bootloader.pm @@ -235,6 +235,9 @@ sub read { sub read_grub2 { my %bootloader = getVarsFromSh("$::prefix/boot/grub2/drakboot.conf"); + $bootloader{entries} = [ map { if_(/menuentry\s+['"]([^']+)["']/, { label => $1 }) } cat_("$::prefix/boot/grub2/grub.cfg") ]; + $bootloader{method} = 'grub2'; + \%bootloader; } sub read_grub { |