Commit 82bff2b2 authored by Yadd's avatar Yadd
Browse files

Fix bad regexp (Fixes: #1476)

parent 8e324b19
......@@ -288,7 +288,7 @@ sub toConf {
my $data = Dumper($fields);
$data =~ s/^\s*(.*?)\s*$/$1/;
$data =~ s/'/'/g;
$data =~ s/^\$data[0-9]*\s*=\s*({?\s*.+\s*}?)/$1/g;
$data =~ s/^\$data[0-9]*\s*=\s*(\{?\s*.+\s*\}?)/$1/g;
return $data;
}
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment