projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
44d9046
)
remove $items warning in RBN
author
Dirk Koopman
<djk@tobit.co.uk>
Fri, 14 Aug 2020 13:59:36 +0000
(14:59 +0100)
committer
Dirk Koopman
<djk@tobit.co.uk>
Fri, 14 Aug 2020 13:59:36 +0000
(14:59 +0100)
perl/RBN.pm
patch
|
blob
|
history
diff --git
a/perl/RBN.pm
b/perl/RBN.pm
index 5898693e2b30ecc0cd05162ca490e82b39320e86..2e35956a398a75a01ee4ec64d61f43cd42a2cb1d 100644
(file)
--- a/
perl/RBN.pm
+++ b/
perl/RBN.pm
@@
-541,7
+541,7
@@
sub process
# At this point we run the queue to see if anything can be sent onwards to the punter
my $now = $main::systime;
my $ta = [gettimeofday];
# At this point we run the queue to see if anything can be sent onwards to the punter
my $now = $main::systime;
my $ta = [gettimeofday];
- my $items;
+ my $items
0
;
# now run the waiting queue which just contains KEYS ($call|$qrg)
foreach my $sp (keys %{$dxchan->{queue}}) {
# now run the waiting queue which just contains KEYS ($call|$qrg)
foreach my $sp (keys %{$dxchan->{queue}}) {
@@
-600,6
+600,7
@@
sub process
}
$qrg{$r->[RQrg]} += ($skimmer->[DScore] || 1);
}
}
$qrg{$r->[RQrg]} += ($skimmer->[DScore] || 1);
}
+
# determine the most likely qrg and then set it
my @deviant;
my $c = 0;
# determine the most likely qrg and then set it
my @deviant;
my $c = 0;
@@
-635,7
+636,6
@@
sub process
$r->[RSpotData]->[SQrg] = $qrg if $qrg && $c > 1; # set all the QRGs to the agreed value
}
$r->[RSpotData]->[SQrg] = $qrg if $qrg && $c > 1; # set all the QRGs to the agreed value
}
-
$qrg = (sprintf "%.1f", $qrg)+0;
$r = $cand->[CData];
$r->[RQrg] = $qrg;
$qrg = (sprintf "%.1f", $qrg)+0;
$r = $cand->[CData];
$r->[RQrg] = $qrg;