added k1xx's changes to spot stats routines

[spider.git] / perl / Spot.pm

diff --git a/perl/Spot.pm b/perl/Spot.pm
index 9f5c8645511711919943fc6564b239f59918bbda..8674e111a111e74b6f10459e787edde67138dba6 100644 (file)
--- a/perl/Spot.pm
+++ b/perl/Spot.pm
@@ -369,6 +369,7 @@ sub genstats($)
                        my ($freq, $by, $dxcc) = (split /\^/)[0,4,6];
                        my $ref = $list{$by} || [0, $dxcc];
                        for (@freq) {
+                               next unless defined $_;
                                if ($freq >= $_->[1] && $freq <= $_->[2]) {
                                        $$ref[$_->[0]+2]++;
                                        $tot[$_->[0]+2]++;