| Subject: | Hyper::Control::Base::BTree - The selection will be lost. |
change
sub STORABLE_thaw_post {
# Storable restores weak references as normal references
# weaken up-reference in tree after thawing
Scalar::Util::weaken($parent_of{ ident $_[0] })
if defined $parent_of{ ident $_[0] };
}
to
sub STORABLE_thaw_post {
# Storable restores weak references as normal references
# weaken up-reference in tree after thawing
Scalar::Util::weaken($parent_of{ ident $_[0] })
if defined $parent_of{ ident $_[0] };
$_[0]->SUPER::STORABLE_thaw_post();
}