Item14362: escape curly braces, as required by modern perl

foswiki · Mar 30, 2017 · 8ca31bb · 8ca31bb
1 parent 2cdf69c
commit 8ca31bb
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/Foswiki/Plugins/DBIQueryPlugin.pm b/lib/Foswiki/Plugins/DBIQueryPlugin.pm
@@ -315,7 +315,7 @@ sub dbiCode {
 
     %params = Foswiki::Func::extractParameters($param_str);
 
-    unless ( $content =~ /^\s*%CODE{.*?}%(.*)%ENDCODE%\s*$/s ) {
+    unless ( $content =~ /^\s*%CODE\{.*?\}%(.*)%ENDCODE%\s*$/s ) {
         $content = "<pre>$content</pre>";
     }