Commit 2f934123 authored by Nigel Kukard's avatar Nigel Kukard

Escape { and } in regex

parent 0cac1793
......@@ -602,7 +602,7 @@ sub parseMacro
my $res = "";
# Loop with macro items
while ((my $match = $rest) =~ /([^%]+)?(?:\%{([a-zA-Z_0-9]+)(?:\(([0-9]+)(?:,([0-9]+))?\))?})(.*)/) {
while ((my $match = $rest) =~ /([^%]+)?(?:\%\{([a-zA-Z_0-9]+)(?:\(([0-9]+)(?:,([0-9]+))?\))?\})(.*)/) {
my ($before,$macro,$n,$m) = ($1,$2,$3,$4);
$rest = $5;
......
Markdown is supported
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