X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FRBN.pm;h=c968d4c8d56cc4f6f0c01b4ee5c8567837a01e35;hb=6ad88bbfb0403ca727ee7ec63eb21c1b153455cc;hp=5898693e2b30ecc0cd05162ca490e82b39320e86;hpb=44d90466304eae7d7aab0f375ac4c07a3f37b586;p=spider.git

diff --git a/perl/RBN.pm b/perl/RBN.pm
index 5898693e..c968d4c8 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;