[interchange] Escape left brace

Josh Lavin interchange-cvs at icdevgroup.org
Tue Jul 25 15:45:44 UTC 2017


commit 4a3c083ec6c7e3affd87bfc667c6cd5114963109
Author: Josh Lavin <digory at 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;



More information about the interchange-cvs mailing list