X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FPrefix.pm;h=3f1341ad6fd169bbbf5a8ceaee42b214fab1e945;hb=0709d2cf77cb507db68901c2508b805724192cbc;hp=9ec6edda05a51e055e8d7e710e8f9fac7f5d3dbf;hpb=a4acd5dfb3aa2bdc2f7108776fbbdc33c5e4fd51;p=spider.git

diff --git a/perl/Prefix.pm b/perl/Prefix.pm
index 9ec6edda..3f1341ad 100644
--- 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 = (