From 907be6e0c64e1e0c26ace93f8abeb54769e51765 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Fri, 14 Aug 2020 14:59:36 +0100 Subject: [PATCH] remove $items warning in RBN --- perl/RBN.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/perl/RBN.pm b/perl/RBN.pm index 5898693e..2e35956a 100644 --- 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]; - my $items; + my $items 0; # 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); } + # 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 } - $qrg = (sprintf "%.1f", $qrg)+0; $r = $cand->[CData]; $r->[RQrg] = $qrg; -- 2.34.1