@@ -, +, @@ --- t/lib/QA/TemplateFilters.pm | 17 ++++++++++++++++- 1 file changed, 16 insertions(+), 1 deletion(-) --- a/t/lib/QA/TemplateFilters.pm +++ a/t/lib/QA/TemplateFilters.pm @@ -70,7 +70,22 @@ sub _process_tt_content { if $line =~ m{\[%(\s|-|~)*USE raw(\s|-|~)*%\]}; # Does [% Use raw %] exist? my $e; - if ( $line =~ qr{(\s|\-|~)*) + (?[^%\-~]+) + (?(\s|\-|~)*) + %\]}gmxs + ) + { + ( $new_line, $e ) = process_tt_block($new_line, { %+, filter => 'html_entity' }); + push @errors, { line => $line, line_number => $line_number, error => $e } if $e; + } + } + elsif ( $line =~ qr{