From: Dirk Koopman <djk@tobit.co.uk>
Date: Fri, 14 Aug 2020 13:59:36 +0000 (+0100)
Subject: remove $items warning in RBN
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=907be6e0c64e1e0c26ace93f8abeb54769e51765;p=spider.git

remove $items warning in RBN
---

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;