fix spots array so that the correct no of fields are always available.

[spider.git] / perl / Prefix.pm

diff --git a/perl/Prefix.pm b/perl/Prefix.pm
index 9ec6edda05a51e055e8d7e710e8f9fac7f5d3dbf..3f1341ad6fd169bbbf5a8ceaee42b214fab1e945 100644 (file)
--- a/perl/Prefix.pm
+++ b/perl/Prefix.pm
@@ -481,9 +481,13 @@ sub cty_data
        
        my @dxcc = extract($call);
        if (@dxcc) {
-               return ($dxcc[1]->dxcc, $dxcc[1]->itu, $dxcc[1]->cq, ($dxcc[1]->state||''), ($dxcc[1]->city||''), ($dxcc[1]->name||''));
+               my $state = $dxcc[1]->state || '';
+               my $city = $dxcc[1]->city || '';
+               my $name = $dxcc[1]->name || '';
+               
+               return ($dxcc[1]->dxcc, $dxcc[1]->itu, $dxcc[1]->cq, $state, $city, $name);
        }
-       return (666,0,0,'','');         
+       return (666,0,0,'','','Pirate-Country-QQ');             
 }
 
 my %valid = (