Yup, if you  warn  $root->cut; you'll get undef, naturally

sub cut
  { my $elt= shift;
    my( $parent, $prev_sibling, $next_sibling, $last_elt);

    # you can't cut the root, sorry
    unless( $parent= $elt->{parent}) { return; }
[download]

So whatever the reason is, its intended