X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FRoute%2FNode.pm;h=eb2f536bd4e96a55d3a1058b3af2419051094931;hb=7694becd42a37ddbc1dfeb22f9667a167ea94dab;hp=ac20b7d8de3266bc5d6ebeefcc0cd652fde05cef;hpb=1fae727d9da6945d99ccdcb79436eb579b47a3b7;p=spider.git 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);