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

diff --git a/perl/Route/Node.pm b/perl/Route/Node.pm
index ccbd91d1..d27efbf8 100644
--- a/perl/Route/Node.pm
+++ b/perl/Route/Node.pm
@@ -30,7 +30,7 @@ use vars qw(%list %valid @ISA $max $filterdef $obscount);
 		  handle_xml => '0,Using XML,yesno',
 		  lastmsg => '0,Last Route Msg,atime',
 		  lastid => '0,Last Route MsgID',
-		  do_pc92 => '0,Uses pc92,yesno',
+		  do_pc9x => '0,Uses pc9x,yesno',
 		  via_pc92 => '0,Came in via pc92,yesno',
 		  obscount => '0,Obscount',
 );
@@ -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;
 }