Item14362: escape curly braces, as required by modern perl

foswiki · Mar 30, 2017 · 99c66d1 · 99c66d1
1 parent 1851391
commit 99c66d1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/Foswiki/Plugins/ForEachPlugin.pm b/lib/Foswiki/Plugins/ForEachPlugin.pm
@@ -68,7 +68,7 @@ sub commonTagsHandler {
     # $_[0] =~ s/%XYZ%/&handleXyz()/ge;
 
     $_[0] =~
-s/%FOREACH\{\s*"(.+?)"\s+in="(.+?)"\s*\}%(.*?)%NEXT{\s*"\1"\s*\}%/&handleForEach($1, $2, $3)/ges;
+s/%FOREACH\{\s*"(.+?)"\s+in="(.+?)"\s*\}%(.*?)%NEXT\{\s*"\1"\s*\}%/&handleForEach($1, $2, $3)/ges;
 
     $_[0] =~
 s/%FOR\{\s*"(.+?)"\s+start="(.+?)"\s+stop="(.+?)"\s+step="(.+?)"\s*\}%(.*?)%NEXT\{\s*"\1"\s*\}%/&handleFor($1, $2, $3, $4, $5)/ges;