codenode

"A designer achieves perfection when nothing is left to remove." —Saint-Exupéry

Archive for the ‘patch’ tag

Devel::Size::total_size() fix/patch coderef segfault

with 2 comments

Devel::Size v0.71 and older causes Perl to segfault if you total_size() any non-trivial coderef. This was known as bug 29238 and bug 26781. I fixed/patched this. The patch (for 0.71; probably works on other version, if not, just make the two simple changes manually) is simply:


48c48
<     if ((o->op_type = OP_TRANS)) {
---
>     if ((o->op_type == OP_TRANS)) {
309a310
>     break;

Written by Daniel Nichter

April 21st, 2010 at 7:13 pm

Posted in Perl

Tagged with , , , ,