Devel::Size で segmentation fault

変数のサイズを調べたいときに Devel::Size というのがあります。

use Devel::Size qw/total_size/;
warn total_size($hogehoge);

とかやると、サイズをだしてくれます。が、
code ref の場合はうまく働かず、最小サイズを返すそうです...が、本当にうまくいかないときもあるみたい。

perl -MDevel::Size -e 'my $hoge = {h => sub {return {hoge => 1} }};print Devel::Size::total_size($hoge)'

とかやると、 segmentation fault になったちゃいました。(perl 5.8.4, 5.8.7 とも)