summaryrefslogtreecommitdiffstats
path: root/perl-install/bootloader.pm
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2015-04-07 10:11:41 -0400
committerThierry Vignaud <thierry.vignaud@gmail.com>2015-04-07 17:41:52 +0200
commitcad505c67576ab7ed587226c1d34010d0ad61b69 (patch)
treedf1cde4b4c7ddac748a2306c45c31d4a9d34b21f /perl-install/bootloader.pm
parentf56bb7cd1c44fabf610ada962b494e66ff2852f9 (diff)
downloaddrakx-cad505c67576ab7ed587226c1d34010d0ad61b69.tar
drakx-cad505c67576ab7ed587226c1d34010d0ad61b69.tar.gz
drakx-cad505c67576ab7ed587226c1d34010d0ad61b69.tar.bz2
drakx-cad505c67576ab7ed587226c1d34010d0ad61b69.tar.xz
drakx-cad505c67576ab7ed587226c1d34010d0ad61b69.zip
extract vga info into {vga}
not that important but for consistency...
Diffstat (limited to 'perl-install/bootloader.pm')
-rw-r--r--perl-install/bootloader.pm5
1 files changed, 5 insertions, 0 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 38dfaee7d..b33d0c983 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -292,6 +292,11 @@ sub read_grub2() {
} elsif (/linux\s+(\S+)\s+(.*)?/ || /module\s+(\S+vmlinu\S+)\s+(.*)?/) {
$entry->{type} = 'image';
@$entry{qw(kernel_or_dev append)} = ($1, $2);
+ my ($vga, $other) = partition { /^vga=/ } split(' ', $entry->{append});
+ if (@$vga) {
+ $entry->{vga} = $vga->[0] =~ /vga=(.*)/ && $1;
+ $entry->{append} = join(' ', @$other);
+ }
} elsif (/initrd\s+(\S+)/ || /module\s+(\S+initrd\S+)\s+(.*)?/) {
$entry->{initrd} = $1;
}