From abb6a59ebc4be911bb6862cd694576b8db700b7e Mon Sep 17 00:00:00 2001 From: minima Date: Sun, 10 Jun 2001 00:17:07 +0000 Subject: [PATCH] delete node from parents node list in del --- perl/Route/Node.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/perl/Route/Node.pm b/perl/Route/Node.pm index ac20b7d8..eb2f536b 100644 --- a/perl/Route/Node.pm +++ b/perl/Route/Node.pm @@ -83,12 +83,13 @@ sub del # delete parent from this call's parent list my $pcall = $pref->{call}; + my $ncall = $self->{call}; + $pref->_delnode($ncall);; my $ref = $self->_delparent($pcall); my @nodes; # is this the last connection, I have no parents anymore? unless (@$ref) { - my $ncall = $self->{call}; foreach my $rcall (@{$self->{nodes}}) { next if grep $rcall eq $_, @_; my $r = Route::Node::get($rcall); -- 2.43.0