new style DXUsers memory layout

[spider.git] / perl / DXProtHandle.pm

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index 52009488db3f357e79a456dd301ff22e898de6e4..13305829f3214da57d81dfdae8f3eddef94df79e 100644 (file)
--- 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