Mailing List Archive

commit 4a3c083ec6c7e3affd87bfc667c6cd5114963109
Author: Josh Lavin <digory@cpan.org>
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;

_______________________________________________
interchange-cvs mailing list
interchange-cvs@icdevgroup.org
http://www.icdevgroup.org/mailman/listinfo/interchange-cvs