From: minima <minima>
Date: Tue, 16 Jan 2007 11:52:55 +0000 (+0000)
Subject: fix delete code
X-Git-Tag: 1.54~25
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=5ba4018131c9d2781549299008595f35d6ee85f3;p=spider.git

fix delete code
---

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