[TWiki-Dev] [SVN] HaraldJoerg r30321 - twiki/trunk/EditTablePlugin/lib/TWiki/Plugins/EditTablePlugin

[<de...@de...>]

Author: HaraldJoerg
Date: 2017-04-07 19:12:23 +0000 (Fri, 07 Apr 2017)
New Revision: 30321
Trac url: http://develop.twiki.org/trac/changeset/30321

Modified:
   twiki/trunk/EditTablePlugin/lib/TWiki/Plugins/EditTablePlugin/Core.pm
Log:
Item7798: Escape left braces in regex (EditTablePlugin)

Modified: twiki/trunk/EditTablePlugin/lib/TWiki/Plugins/EditTablePlugin/Core.pm
===================================================================
--- twiki/trunk/EditTablePlugin/lib/TWiki/Plugins/EditTablePlugin/Core.pm	2017-04-07 19:11:53 UTC (rev 30320)
+++ twiki/trunk/EditTablePlugin/lib/TWiki/Plugins/EditTablePlugin/Core.pm	2017-04-07 19:12:23 UTC (rev 30321)
@@ -1028,7 +1028,7 @@
 
     my $cellFormat = '';
     $theValue =~
-      s/\s*%EDITCELL{(.*?)}%/&parseEditCellFormat( $1, $cellFormat )/eo;
+      s/\s*%EDITCELL\{(.*?)}%/&parseEditCellFormat( $1, $cellFormat )/eo;
 
     # If cell is empty we remove the space to not annoy the user when
     # he needs to add text to empty cell.
@@ -1414,7 +1414,7 @@
         $text .= $theRow;
     }
     else {
-        $theRow =~ s/%EDITCELL{(.*?)}%/viewEditCell($1)/geo;
+        $theRow =~ s/%EDITCELL\{(.*?)}%/viewEditCell($1)/geo;
         $text .= $theRow;
     }
 
@@ -1527,7 +1527,7 @@
 
 sub putTmpTagInTableTagLine {
     $_[0] =~
-s/(%TABLE{.*?)(}%)/$1 "START_EDITTABLEPLUGIN_TMP_TAG""END_EDITTABLEPLUGIN_TMP_TAG"$2/;
+s/(%TABLE\{.*?)(}%)/$1 "START_EDITTABLEPLUGIN_TMP_TAG""END_EDITTABLEPLUGIN_TMP_TAG"$2/;
 }
 
 sub insertTmpTagInTableTagLine {