X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FRoute%2FNode.pm;h=e50302cd1b494e65a16fa04f3befb37e1b1c4337;hb=5ba4018131c9d2781549299008595f35d6ee85f3;hp=ccbd91d1e1ce4b28da7b0a50985b8e5477f54fc2;hpb=217d9d54b6772ed24aee88d5dc968a64de54f531;p=spider.git

diff --git a/perl/Route/Node.pm b/perl/Route/Node.pm
index ccbd91d1..e50302cd 100644
--- a/perl/Route/Node.pm
+++ b/perl/Route/Node.pm
@@ -121,8 +121,9 @@ sub delete
 	my @out;
 	
 	$self->_del_users;
-	foreach my $parent (@{$self->{parent}}) {
-		push @out, $parent->del($self);
+	foreach my $call (@{$self->{parent}}) {
+		my $parent = Route::Node::get($call);
+		push @out, $parent->del($self) if $parent;
 	}
 	return @out;
 }