summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-08-29 11:04:45 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-08-29 11:04:45 +0000
commit1b8361190e9295e1246c5f6ef2dbff458daa2a0b (patch)
treeeefced34eaee9f4f8fbbab78d5127c4c4d6eacb8
parente816be2f6f1fd851ab9586ddc297e38e3d7ac450 (diff)
downloaddrakx-1b8361190e9295e1246c5f6ef2dbff458daa2a0b.tar
drakx-1b8361190e9295e1246c5f6ef2dbff458daa2a0b.tar.gz
drakx-1b8361190e9295e1246c5f6ef2dbff458daa2a0b.tar.bz2
drakx-1b8361190e9295e1246c5f6ef2dbff458daa2a0b.tar.xz
drakx-1b8361190e9295e1246c5f6ef2dbff458daa2a0b.zip
handle things like append="foo=\"bar boo\"" (bugzilla #17937)
-rw-r--r--perl-install/bootloader.pm2
1 files changed, 1 insertions, 1 deletions
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 {