diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2015-05-09 10:06:44 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2015-05-09 13:15:36 +0200 |
| commit | c8b3415239588e2cc8f930a527407533c33e50b9 (patch) | |
| tree | 68ff3a40d106b56e76ac446c58ff97dabf8f827c /perl-install | |
| parent | 899bf269b69feae693e489e70bb63a0070dc58f1 (diff) | |
| download | drakx-c8b3415239588e2cc8f930a527407533c33e50b9.tar drakx-c8b3415239588e2cc8f930a527407533c33e50b9.tar.gz drakx-c8b3415239588e2cc8f930a527407533c33e50b9.tar.bz2 drakx-c8b3415239588e2cc8f930a527407533c33e50b9.tar.xz drakx-c8b3415239588e2cc8f930a527407533c33e50b9.zip | |
(get_grub2_first_entry) split it out
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/bootloader.pm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm index 75785f3ce..4a6102081 100644 --- a/perl-install/bootloader.pm +++ b/perl-install/bootloader.pm @@ -1774,10 +1774,17 @@ sub crypt_grub_password { chomp_($res); } -sub get_grub2_append { +sub get_grub2_first_entry { my ($bootloader) = @_; # set default parameters: my ($entry) = grep { $_->{kernel_or_dev} =~ /vmlin/ } @{$bootloader->{entries}}; + $entry; +} + +sub get_grub2_append { + my ($bootloader) = @_; + # get default parameters: + my ($entry) = get_grub2_first_entry($bootloader); my $append = $entry->{append}; if (my $vga = $entry->{vga} || $bootloader->{vga}) { $append .= " vga=$vga"; |