>>% perl -MO=Deparse -cwe 'sub foo { 23 }; foo' >>% perl -MO=Deparse -cwe 'sub foo { foo($x--) if $x }' >This patch should fix both of these, plus the bug that B::Deparse went b<SNIP> If you compile (with perlcc -b) this lovely perl1 code: open(TC, "< /etc/termcap"); while (<TC>) { split(/:/, $_); for ($i = 0; $i <= $#_; $i++) { $seen{ $_[$i] }++; } } And then try to uncompile it, this is what happens: % perl -MO=Deparse,-p /tmp/tcap.pbc open(TC, '< /etc/termcap'); while (defined(($_ = <TC>))) { split(/:/, $_, 0); ($i = 0); while (($i <= $#_)) { (++$seen{$_[$i]}); } continue { (++$i) } } /tmp/tcap.pbc syntax OK Attempt to free unreferenced scalar. Attempt to free unreferenced scalar. Segmentation fault [Exit 139] which looks like something I saw yesterday. --tomThread Previous