From 5ba4018131c9d2781549299008595f35d6ee85f3 Mon Sep 17 00:00:00 2001 From: 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.43.0