cvs commit: p5ee/P5EEx/Blue/P5EEx/Blue TemplateEngine.pm

[spadkins]

cvsuser     02/03/22 15:09:30

  Modified:    P5EEx/Blue/P5EEx/Blue TemplateEngine.pm
  Log:
  modified the builtin template engine to recognize only whole-line substitution 
phrases
  
  Revision  Changes    Path
  1.3       +2 -2      p5ee/P5EEx/Blue/P5EEx/Blue/TemplateEngine.pm
  
  Index: TemplateEngine.pm
  ===================================================================
  RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/TemplateEngine.pm,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -w -r1.2 -r1.3
  --- TemplateEngine.pm 22 Mar 2002 04:29:35 -0000      1.2
  +++ TemplateEngine.pm 22 Mar 2002 23:09:29 -0000      1.3
  @@ -1,6 +1,6 @@
   
   #############################################################################
  -## $Id: TemplateEngine.pm,v 1.2 2002/03/22 04:29:35 spadkins Exp $
  +## $Id: TemplateEngine.pm,v 1.3 2002/03/22 23:09:29 spadkins Exp $
   #############################################################################
   
   package P5EEx::Blue::TemplateEngine;
  @@ -275,7 +275,7 @@
       $context = $self->{context};
       $values = {} if (! defined $values);
   
  -    while ( $template_text =~ /\[([^\[\]]+)\]/ ) {
  +    while ( $template_text =~ /^\[([^\[\]]+)\]$/ ) {
           $phrase = $1;
           while ( $phrase =~ /\{([^\{\}]+)\}/ ) {
               $var = $1;