From abb6a59ebc4be911bb6862cd694576b8db700b7e Mon Sep 17 00:00:00 2001
From: minima <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.34.1