fix last fix!

diff --git a/perl/RBN.pm b/perl/RBN.pm
index 2e35956a398a75a01ee4ec64d61f43cd42a2cb1d..c968d4c8d56cc4f6f0c01b4ee5c8567837a01e35 100644 (file)
--- 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 0;
+               my $items = 0;
                
                # now run the waiting queue which just contains KEYS ($call|$qrg)
                foreach my $sp (keys %{$dxchan->{queue}}) {