From 1b8361190e9295e1246c5f6ef2dbff458daa2a0b Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 29 Aug 2005 11:04:45 +0000
Subject: handle things like append="foo=\"bar boo\"" (bugzilla #17937)

---
 perl-install/bootloader.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/bootloader.pm')

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index b5e675efb..1af8500eb 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -529,7 +529,7 @@ my $uniq_dict_appends = join('|', qw(devfs acpi pci resume PROFILE XFree));
 
 sub unpack_append {
     my ($s) = @_;
-    my @l = split(' ', $s);
+    my @l = "$s " =~ /((?:[^"\s]+|".*?")*)\s+/g;
     [ grep { !/=/ } @l ], [ map { if_(/(.*?)=(.*)/, [$1, $2]) } @l ];
 }
 sub pack_append {
-- 
cgit v1.2.1