我曾经在本板回文推荐过 Devel::FindRef 这个 module
#1EjC2SBW https://www.ptt.cc/bbs/Perl/M.1320468636.A.2E0.html
它可以用来查询指定的变量目前被谁 reference 到,
对于要抓 memory leak 的时候蛮方便的~
不过自从 perl 5.21.6 之后, 这一个 module 就坏掉不能用了,
然后作者 Marc Lehmann 对 perl core team 的改版非常不爽,
大吵一架以后看起来没打算再修的样子, 我等了很久很久以后,
决定自己动手修一修..
https://github.com/CindyLinz/Perl-Devel-FindRef
这个修改版, 我目前自己在 linux arch 64 上测试过 5.8.9 ~ 5.26.0
的每个主要的 perl 发行版本, 希望大家有空的话也拿去用用看,
看有没有什么 corner case 会出现不希望发生的问题再跟我说...
我已经把这个更新送给作者了, 他说他会看一看然后 probably
会整合生一个更新版出来, 不过不能承诺什么时候会作.. ^^|
目前有个已知 5.21.6 以后会跟 5.21.5 以前不一样的行为是:
主档里面定义的 sub 在旧版会回报为 &main::sub_name,
而新版会回报为 %main::main:: 里面的 sub_name 这个 entry...
不过这个我觉得可以忍受有点懒得改.. ^^|