- foreach my $parent (@{$self->{parent}}) {
- push @out, $parent->del($self);
+ if (@{$self->{parent}}) {
+ foreach my $call (@{$self->{parent}}) {
+ my $parent = Route::Node::get($call);
+ push @out, $parent->del($self) if $parent;
+ }
+ }
+ # get rid of my nodes
+ push @out, $self->del_nodes;
+ # this only happens if we a orphan with no parents
+ if ($list{$ncall}) {
+ push @out, $self;
+ delete $list{$ncall};