[interchange] Escape left brace
Josh Lavin <[email protected]> Tue, 25 Jul 2017 15:45:44 +0000
| Newsgroups | gmane.comp.web.interchange.cvs |
|---|---|
| Message-ID | <[email protected]> |
commit 4a3c083ec6c7e3affd87bfc667c6cd5114963109 Author: Josh Lavin <[email protected]> Date: Tue Jul 25 08:40:53 2017 -0700 Escape left brace unescaped is deprecated in Perl 5.26, fatal in 5.30 lib/Vend/Table/Editor.pm | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) --- diff --git a/lib/Vend/Table/Editor.pm b/lib/Vend/Table/Editor.pm index dd44f93..d9c61b0 100644 --- a/lib/Vend/Table/Editor.pm +++ b/lib/Vend/Table/Editor.pm @@ -1064,7 +1064,7 @@ EOF } else { # Strip the {TAG} {/TAG} pairs if nothing there - $template =~ s#{([A-Z_]+)}(.*?){/\1}#$sub{$1} ? $2: '' #ges; + $template =~ s#\{([A-Z_]+)\}(.*?)\{/\1\}#$sub{$1} ? $2: '' #ges; # Insert the TAG $sub{HELP_URL} ||= 'javascript:void(0)'; $template =~ s/\$([A-Z_]+)\$/$sub{$1}/g;