perl - 修复 Devel::ptkdb 以支持左值子真的那么容易吗？(rfce)

Question

我必须使用一个使用 lvalue subs 的 Perl Lib。多年来我一直在使用 Devel::ptkdb 进行调试。

在使用以下消息调试 Devel::ptkdbdie时：

不能修改非左值子程序调用

所以我开始调查这个问题，现在解决方案是将以下子添加到 Devel::ptkdb (v1.1091)：

sub lsub :lvalue {
  local $DB::single = 0;

  no strict;
  return &$DB::sub;
}

我还了解到，我对 TK 和 Perl 调试器内部的了解不够深入，无法证明此更改没有副作用，因此这是对代码评估的请求。

标签： perl