From: minima <minima>
Date: Sun, 10 Jun 2001 00:17:07 +0000 (+0000)
Subject: delete node from parents node list in del
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=abb6a59ebc4be911bb6862cd694576b8db700b7e;p=spider.git

delete node from parents node list in del
---

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);