From 4478818ad569a966b732159facc4ed6674bb534b Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Thu, 11 Jun 2020 15:26:18 +0100 Subject: [PATCH] fix respotted spots --- perl/RBN.pm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/perl/RBN.pm b/perl/RBN.pm index f6c1bc53..a3567f80 100644 --- a/perl/RBN.pm +++ b/perl/RBN.pm @@ -228,8 +228,11 @@ sub normal } dbg("RBN: key: '$sp' RESPOTTING call: $call qrg: $qrg last seen \@ ". atime(int $spot->[0])) if isdbg('rbn'); + undef $spot; # it's about to be recreated (in one place) ++$respot; } + + # otherwise we have a spot being built up at the moment } elsif ($spot) { dbg("RBN: key '$sp' = '$spot' not ref"); return; @@ -237,9 +240,8 @@ sub normal # here we either have an existing spot record buildup on the go, or we need to create the first one unless ($spot) { - $spot = [clock_gettime(CLOCK_REALTIME)]; - $spots->{$sp} = $spot; - dbg("RBN: key: '$sp' call: $call qrg: $qrg NEW") if isdbg('rbn'); + $spots->{$sp} = $spot = [clock_gettime(CLOCK_REALTIME)];; + dbg("RBN: key: '$sp' call: $call qrg: $qrg NEW" . $respot ? ' RESPOT' : '') if isdbg('rbn'); } # add me to the display queue unless we are waiting for initial in rush to finish -- 2.43.0