X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=f4c932a81cfe35847ab354fa79c0a4b4b4174de9;hb=b7a0598517688e82d2996a22a09aac67a911ba8f;hp=06cf1007c5c34eaa7f536ce2f782a5ec01fe1bed;hpb=febdc9bd8f6cd065d217ba089fab4361e9980f35;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 06cf1007..f4c932a8 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -431,11 +431,13 @@ sub normal
 						if ($to ne $field[7]) {
 							$to = $field[7];
 							$node = Route::Node::get($to);
-							$dxchan = $node->dxchan;
-							if ($node->dxchan && $dxchan->is_clx) {
-								route(undef, $to, pc84($main::mycall, $to, $main::mycall, $cmd));
-							} else {
-								route(undef, $to, pc34($main::mycall, $to, $cmd));
+							if ($node) {
+								$dxchan = $node->dxchan;
+								if ($dxchan && $dxchan->is_clx) {
+									route(undef, $to, pc84($main::mycall, $to, $main::mycall, $cmd));
+								} else {
+									route(undef, $to, pc34($main::mycall, $to, $cmd));
+								}
 							}
 						}
 						$user->lastoper($main::systime);
@@ -605,7 +607,8 @@ sub normal
 			my $node = Route::Node::get($self->{call});
 			my @rout;
 			for ($node->nodes) {
-				push @rout, $_->del_node;
+				my $r = Route::Node::get($_);
+				push @rout, $r->del_node if $r;
 			}
 			$self->route_pc21(@rout, $node);
 			$self->send_local_config();