Escape { and } in regex

2f934123 · Nigel Kukard · 0cac1793 · 2f934123
Commit 2f934123 authored Apr 17, 2017 by Nigel Kukard
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

lib/AWITPT/Util.pm lib/AWITPT/Util.pm +1 -1

No files found.
--- a/lib/AWITPT/Util.pm
+++ b/lib/AWITPT/Util.pm
@@ -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;