fix error on anonymous pc17

[spider.git] / perl / Prefix.pm

diff --git a/perl/Prefix.pm b/perl/Prefix.pm
index bc8a0edf92ea3f411b6e2f242fe6eef824a228ad..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);
+               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 = (