my $compiler = $bd->coderef2text(B::Deparse::compile(@$deparse));
$compiler =~ s/
['"]? B::Deparse ['"]? \s* -> \s* (new) \s* \( ([^\)]*) \)
/B::RecDeparse->$1(deparse => [ $2 ], level => $level)/gx;
$compiler = eval 'sub ' . $compiler;
die if $@;
my $compiler = $bd->coderef2text(B::Deparse::compile(@$deparse));
$compiler =~ s/
['"]? B::Deparse ['"]? \s* -> \s* (new) \s* \( ([^\)]*) \)
/B::RecDeparse->$1(deparse => [ $2 ], level => $level)/gx;
$compiler = eval 'sub ' . $compiler;
die if $@;