Item14605: More unescaped { braces

core/lib/Foswiki/Configure/Checkers/AccessibleCFG.pm

@@ -23,7 +23,7 @@ sub check_current_value {
         if ( ref($v) ) {
             $reporter->ERROR("Was expecting entry $ec to be a scalar");
         }
-        if ( $v !~ /^({\w+})+$/ ) {
+        if ( $v !~ /^(\{\w+\})+$/ ) {
             $reporter->ERROR("Was expecting '$v' to be a cfg key");
         }
         $ec++;

core/lib/Foswiki/Configure/Checkers/WorkingDir.pm

@@ -50,8 +50,8 @@ If compression is enabled, it also compresses the language file.
 sub onSave {
     my ( $this, $reporter, $key, $d, $old_dir ) = @_;
 
-    $d       =~ s/\$Foswiki::cfg({\w+})+/eval( "\$Foswiki::cfg$1")/ge;
-    $old_dir =~ s/\$Foswiki::cfg({\w+})+/eval( "\$Foswiki::cfg$1")/ge;
+    $d       =~ s/\$Foswiki::cfg(\{\w+\})+/eval( "\$Foswiki::cfg$1")/ge;
+    $old_dir =~ s/\$Foswiki::cfg(\{\w+\})+/eval( "\$Foswiki::cfg$1")/ge;
 
     return if ( $d eq $old_dir );
 
@@ -109,7 +109,7 @@ sub onSave {
 
     # Automatic upgrade of work_areas
     my $existing = $old_dir || $Foswiki::cfg{Store}{WorkAreaDir} || '';
-    $existing =~ s/\$Foswiki::cfg({\w+})+/eval( "$Foswiki::cfg$1")/ge;
+    $existing =~ s/\$Foswiki::cfg(\{\w+\})+/eval( "$Foswiki::cfg$1")/ge;
     if ( $existing && -d $existing ) {
 
         # Try and move the contents of the old workarea