X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FVE7CC.pm;fp=perl%2FVE7CC.pm;h=e6634b6209c7d80ef8c76f5e879e75f9b0734e30;hb=0709d2cf77cb507db68901c2508b805724192cbc;hp=2e931777969820577dcdadf8c74d7f7f0b13e087;hpb=a4acd5dfb3aa2bdc2f7108776fbbdc33c5e4fd51;p=spider.git

diff --git a/perl/VE7CC.pm b/perl/VE7CC.pm
index 2e931777..e6634b62 100644
--- a/perl/VE7CC.pm
+++ b/perl/VE7CC.pm
@@ -30,9 +30,13 @@ sub dx_spot
 	my $freq = shift;
 	my $spotted = shift;
 	my $t = shift;
+
+	# remove any items above the top of the max spot data
+	pop while @_ > 11;
 	
-	# remove interface callsign;
-	pop;
+	# make sure both US states are defined
+	$_[9] ||= '';
+	$_[10] ||= '';
 	
 	my $spotter_cc = (Prefix::cty_data($spotted))[5];
 	my $spotted_cc = (Prefix::cty_data($_[1]))[5];