perl - Marpa::R2 泄漏内存

Question

我正在使用最新版本的 marpa::r2 (Marpa-R2-2.065_002)，它似乎很快就吃光了所有内存。我写了下面的脚本来测试它。

use strict;
use warnings FATAL => 'all';
use Marpa::R2;
use Data::Dumper;

my $grammar = Marpa::R2::Scanless::G->new({
 action_object => __PACKAGE__,
 source => \(<<'END_OF_SOURCE'),
 :default ::= action => ::array
 :start ::= path
 path ::=
  step               action => _do_step
 step ~ [a-z]+ 
END_OF_SOURCE
});

sub _do_step{ return {step => $_[1]}};


sub new {}     #The Marpa::R2 needs it
sub compile{
 my ($query) = @_; 
 return undef unless $query;

 my $reader = Marpa::R2::Scanless::R->new({
  grammar => $grammar,
  trace_terminals => 0,
 });
 $reader->read(\$query);
 print Dumper $reader->value;
}

compile($_) foreach ('aaaa'..'zzzz'); 

我能做些什么来防止内存泄漏？

编辑：这现在被报告为rt.cpan的错误。

编辑：现在已在 Marpa-R2 2.066000 版本中修复。谢谢

Answer 1

泄漏已在 CPAN 上的 Marpa-R2 2.065_006 中修复。感谢您指出这一点，并感谢 amon 提供的最小示例，它节省了我的时间并使事情变得更容易。

问题出在 Perl 代码中。两个结构相互引用——循环引用。使用 amon 的示例测试固定版本会产生随时间推移绝对平稳的内存使用。

我会尽快将此修复程序放入 CPAN 上的索引（即非开发人员）版本中。