[TWiki-Dev] [SVN] HaraldJoerg r30327 - twiki/trunk/core/lib/TWiki/Configure

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

Author: HaraldJoerg
Date: 2017-04-10 21:33:21 +0000 (Mon, 10 Apr 2017)
New Revision: 30327
Trac url: http://develop.twiki.org/trac/changeset/30327

Modified:
   twiki/trunk/core/lib/TWiki/Configure/TWikiCfg.pm
Log:
Item7799: Unescaped left brace (core)

Modified: twiki/trunk/core/lib/TWiki/Configure/TWikiCfg.pm
===================================================================
--- twiki/trunk/core/lib/TWiki/Configure/TWikiCfg.pm	2017-04-07 19:14:10 UTC (rev 30326)
+++ twiki/trunk/core/lib/TWiki/Configure/TWikiCfg.pm	2017-04-10 21:33:21 UTC (rev 30327)
@@ -334,7 +334,7 @@
         my $txt = Data::Dumper->Dump([$warble]);
         $txt =~ s/VAR1/TWiki::cfg$keys/;
         # Substitute any existing value, or append if not there
-        unless ($this->{content} =~ s/\$(TWiki::)?cfg$keys\s*=.*?;\n/$txt/s) {
+        unless ($this->{content} =~ s/\$(TWiki::)?cfg\Q$keys\E\s*=.*?;\n/$txt/s) {
             $this->{content} .= $txt;
         }
         if( $visitee->{typename} && $visitee->{typename} eq 'PASSWORD' ) {