(get_grub2_first_entry) split it out

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";