diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2015-04-07 10:11:41 -0400 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2015-04-07 17:41:52 +0200 |
| commit | cad505c67576ab7ed587226c1d34010d0ad61b69 (patch) | |
| tree | df1cde4b4c7ddac748a2306c45c31d4a9d34b21f /perl-install/bootloader.pm | |
| parent | f56bb7cd1c44fabf610ada962b494e66ff2852f9 (diff) | |
| download | drakx-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.pm | 5 |
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; } |