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

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;