summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2015-05-09 10:06:44 +0200
committerThierry Vignaud <thierry.vignaud@gmail.com>2015-05-09 13:15:36 +0200
commitc8b3415239588e2cc8f930a527407533c33e50b9 (patch)
tree68ff3a40d106b56e76ac446c58ff97dabf8f827c /perl-install
parent899bf269b69feae693e489e70bb63a0070dc58f1 (diff)
downloaddrakx-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.pm9
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";