From c8b3415239588e2cc8f930a527407533c33e50b9 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Sat, 9 May 2015 10:06:44 +0200
Subject: (get_grub2_first_entry) split it out

---
 perl-install/bootloader.pm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'perl-install')

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";
-- 
cgit v1.2.1