diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2005-08-29 11:04:45 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2005-08-29 11:04:45 +0000 |
| commit | 1b8361190e9295e1246c5f6ef2dbff458daa2a0b (patch) | |
| tree | eefced34eaee9f4f8fbbab78d5127c4c4d6eacb8 /perl-install/bootloader.pm | |
| parent | e816be2f6f1fd851ab9586ddc297e38e3d7ac450 (diff) | |
| download | drakx-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)
Diffstat (limited to 'perl-install/bootloader.pm')
| -rw-r--r-- | perl-install/bootloader.pm | 2 |
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 { |