X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProtHandle.pm;h=13305829f3214da57d81dfdae8f3eddef94df79e;hb=bfd4e140dcf03f12bbda1dd405f8b135f86d0b6a;hp=52009488db3f357e79a456dd301ff22e898de6e4;hpb=974aca6b8ccf37405098dd3c465a938da5f85eac;p=spider.git

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index 52009488..13305829 100644
--- a/perl/DXProtHandle.pm
+++ b/perl/DXProtHandle.pm
@@ -663,7 +663,9 @@ sub check_add_node
 
 	# add this station to the user database, if required (don't remove SSID from nodes)
 	my $chan = DXChannel::get($call);
-	my $user = $chan->user || DXUser::get($call);
+	my $user;
+	$user = $chan->user if $chan;
+	$user ||= DXUser::get($call);
 	unless ($user) {
 		$user = DXUser->new($call);
 		$user->priv(1);		# I have relented and defaulted nodes