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

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 06cf1007..813b89ce 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);