X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProtHandle.pm;h=13305829f3214da57d81dfdae8f3eddef94df79e;hb=e67d75717f0625225632cfd12a7a2d899fb692ea;hp=52009488db3f357e79a456dd301ff22e898de6e4;hpb=20322ed06e983ca2ab5020a1f7227eaa1fbdac7a;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