From cad505c67576ab7ed587226c1d34010d0ad61b69 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Tue, 7 Apr 2015 10:11:41 -0400
Subject: extract vga info into {vga}

not that important but for consistency...
---
 perl-install/bootloader.pm | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'perl-install')

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