summaryrefslogtreecommitdiffstats
path: root/perl-install/bootloader.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/bootloader.pm')
-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";