Skip Menu |
 

This queue is for tickets about the Syntax-Highlight-Engine-Kate CPAN distribution.

Report information
The Basics
Id: 123686
Status: new
Priority: 0/
Queue: Syntax-Highlight-Engine-Kate

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

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



Subject: testRegExpr can cause memory leak
Download (untitled) / with headers
text/plain 1.2k
The sub testRegExpr in Template.pm occasionally causes a memory leak. This is caused by the usage of the g-flag. Below a revised version of this sub. sub testRegExpr { my $self = shift; my $text = shift; my $reg = shift; my $insensitive = shift; my $dynamic = shift; if ($dynamic) { $reg = $self->capturedParse($reg); } my $eng = $self->engine; if ($reg =~ s/^\^//) { unless ($eng->linestart) { return ''; } } elsif ($reg =~ s/^\\(b)//i) { my $lastchar = $self->engine->lastchar; if ($1 eq 'b') { if ($lastchar =~ /\w/) { return '' } } else { if ($lastchar =~ /\W/) { return '' } } } $reg = "^($reg)"; my $sample = $$text; # emergency measurements to avoid exception (szabgab) $reg = eval { qr/$reg/ }; if ($@) { warn $@; return ''; } my $match; if ($insensitive) { if ($sample =~ /$reg/i) { $match = $1; if ($#-) { no strict 'refs'; my @cap = map {$$_} 2 .. $#-; $self->captured(\@cap) } } } else { if ($sample =~ /$reg/) { $match = $1; if ($#-) { no strict 'refs'; my @cap = map {$$_} 2 .. $#-; $self->captured(\@cap); } } } if ((defined($match)) and ($match ne '')) { return $self->parseResult($text, $match, @_); } return '' }


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.