From 5ba4018131c9d2781549299008595f35d6ee85f3 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Tue, 16 Jan 2007 11:52:55 +0000
Subject: [PATCH] fix delete code

---
 perl/Route/Node.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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