Item14341: escape braces for modern perl

foswiki · Mar 14, 2017 · 389e7c7 · 389e7c7
1 parent 0cd733a
commit 389e7c7
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/data/System/ForEachPlugin.txt b/data/System/ForEachPlugin.txt
@@ -124,6 +124,7 @@ __Note:__ You do not need to install anything on the browser to use this plugin.
 |  Release: | %$RELEASE% |
 |  Version: | %$VERSION% |
 |  Change History: | <!-- versions below in reverse order -->&nbsp; |
+|  14 Mar 2017: | (1.103) Foswikitask:Item
 |  22 Dec 2010: | (1.102) Foswikitask:Item10183 - Add link to Foswiki:Support.Faq39 |
 |  10 Nov 2010: | (1.101) Foswikitask:Item9993 - Fix Release Version  |
 |  04 Jun 2009: | (1.100) Ported unmodified to Foswiki by Kenneth Lavrsen |

diff --git a/lib/Foswiki/Plugins/ForEachPlugin.pm b/lib/Foswiki/Plugins/ForEachPlugin.pm
@@ -68,10 +68,10 @@ 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;
+s/%FOR\{\s*"(.+?)"\s+start="(.+?)"\s+stop="(.+?)"\s+step="(.+?)"\s*\}%(.*?)%NEXT\{\s*"\1"\s*\}%/&handleFor($1, $2, $3, $4, $5)/ges;
 }
 
 # =========================