Skip to content
Snippets Groups Projects
Commit 00b76490 authored by Mark Harrison's avatar Mark Harrison
Browse files

Merge pull request #18 from ssevertson/master

Unescape all commas in configuration parameters
parents 1fe9c5fc a5f325cd
No related branches found
No related tags found
No related merge requests found
......@@ -63,7 +63,7 @@ sub new {
my $kvs = {};
my $check_name = $1;
my @params = split(/(?<!\\),/, $2);
grep { s/\\(.)/$1/ } @params;
grep { s/\\(.)/$1/g } @params;
grep { $kvs->{$1} = $2 if /^\s*(\S+)\s*=>\s*(\S(?:.*\S)?)\s*$/ }
@params;
my $object;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment