projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
50485e9
)
fix respotted spots
author
Dirk Koopman
<djk@tobit.co.uk>
Thu, 11 Jun 2020 14:26:18 +0000
(15:26 +0100)
committer
Dirk Koopman
<djk@tobit.co.uk>
Thu, 11 Jun 2020 14:26:18 +0000
(15:26 +0100)
perl/RBN.pm
patch
|
blob
|
history
diff --git
a/perl/RBN.pm
b/perl/RBN.pm
index f6c1bc5389144403d1944a465b6f716745116f27..a3567f80aeeb3f6685b9ff21b3340764adc160b8 100644
(file)
--- 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');
}
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;
}
++$respot;
}
+
+ # otherwise we have a spot being built up at the moment
} elsif ($spot) {
dbg("RBN: key '$sp' = '$spot' not ref");
return;
} 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) {
# 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
}
# add me to the display queue unless we are waiting for initial in rush to finish