Skip Menu |

This queue is for tickets about the HTML-Template-Parser CPAN distribution.

Report information
The Basics
Id: 117281
Status: open
Priority: 0/
Queue: HTML-Template-Parser

People
Owner: Nobody in particular
Requestors: SREZIC [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: 0.1011
Fixed in: (no value)



Subject: Unescaped left brace in regex is illegal here in regex
t/900_bug/003_name_and_expr.t fails with bleadperl (e.g. perl 5.25.4): Unescaped left brace in regex is illegal here in regex; marked by <-- HERE in m/line 1. column 1. something wrong. Can't use \${ <-- HERE name} at NAME. \[\${foo}\]/ at t/900_bug/003_name_and_expr.t line 10. # Looks like your test exited with 255 before it could output anything. t/900_bug/003_name_and_expr.t ............................................. Dubious, test returned 255 (wstat 65280, 0xff00) Failed 4/4 subtests
On Mon Aug 29 01:32:45 2016, SREZIC wrote: Show quoted text
> t/900_bug/003_name_and_expr.t fails with bleadperl (e.g. perl 5.25.4): > > Unescaped left brace in regex is illegal here in regex; marked by <-- > HERE in m/line 1. column 1. something wrong. Can't use \${ <-- HERE > name} at NAME. \[\${foo}\]/ at t/900_bug/003_name_and_expr.t line 10. > # Looks like your test exited with 255 before it could output > anything. > t/900_bug/003_name_and_expr.t > ............................................. > Dubious, test returned 255 (wstat 65280, 0xff00) > Failed 4/4 subtests
The patch attached should address the problem. Thank you very much. Jim Keenan
Subject: HTML-Template-Parser-unescaped-left-brace.diff
--- t/900_bug/003_name_and_expr.t 2012-07-31 05:51:45.000000000 -0400 +++ corrected_t/900_bug/003_name_and_expr.t 2016-12-20 12:36:28.628612075 -0500 @@ -7,7 +7,7 @@ test_error_message(q{<TMPL_VAR EXPR="foo">}, qr{^$}); test_error_message(q{<TMPL_VAR NAME="foo">}, qr{^$}); test_error_message(q{<TMPL_VAR EXPR="${foo}">}, qr{^$}); -test_error_message(q{<TMPL_VAR NAME="${foo}">}, qr!line 1. column 1. something wrong. Can't use \${name} at NAME. \[\${foo}\]!); +test_error_message(q{<TMPL_VAR NAME="${foo}">}, qr!line 1. column 1. something wrong. Can't use \$\{name} at NAME. \[\$\{foo}\]!); sub test_error_message { my($template_string, $error_message_re) = @_;