]> dxcluster.org Git - spider.git/commitdiff
remove $items warning in RBN
authorDirk Koopman <djk@tobit.co.uk>
Fri, 14 Aug 2020 13:59:36 +0000 (14:59 +0100)
committerDirk Koopman <djk@tobit.co.uk>
Fri, 14 Aug 2020 13:59:36 +0000 (14:59 +0100)
perl/RBN.pm

index 5898693e2b30ecc0cd05162ca490e82b39320e86..2e35956a398a75a01ee4ec64d61f43cd42a2cb1d 100644 (file)
@@ -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;