Bug 38872: Parse all 'a' element, not only the first one
Test plan: Apply the "Add test" commit % prove t/template_filters.t => Fail Apply this patch % prove t/template_filters.t => Success % prove xt/find-missing-filters.t => Fail Apply the last patch "Fix occurrences" % prove xt/find-missing-filters.t => Success Signed-off-by: Owen Leonard <oleonard@myacpl.org> Signed-off-by: David Nind <david@davidnind.com> Signed-off-by: Matt Blenkinsop <matt.blenkinsop@ptfs-europe.com> Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
This commit is contained in:
parent
7fdf2983a9
commit
3e5fa21f85
|
|
@ -77,7 +77,7 @@ sub _process_tt_content {
|
|||
if $line =~ m{\[%(\s|-|~)*USE raw(\s|-|~)*%\]}; # Does [% Use raw %] exist?
|
||||
|
||||
my $e;
|
||||
if ( $line =~ qr{<a href="([^"]+)} ) {
|
||||
while ( $line =~ m{<a href="([^"]+)}g ) {
|
||||
my $to_uri_escape = $1;
|
||||
while (
|
||||
$to_uri_escape =~ m{
|
||||
|
|
|
|||
Loading…
Reference in New Issue