delete node from parents node list in del

[spider.git] / perl / Route / Node.pm

diff --git a/perl/Route/Node.pm b/perl/Route/Node.pm
index ac20b7d8de3266bc5d6ebeefcc0cd652fde05cef..eb2f536bd4e96a55d3a1058b3af2419051094931 100644 (file)
--- 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);