X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FPrefix.pm;h=48206cea6b4cce0a861b4dcc775b3e5789bdefa8;hb=a9f28e80e3936421f830bba0eacffd3bb509a9cb;hp=bc8a0edf92ea3f411b6e2f242fe6eef824a228ad;hpb=db100bf2aacab3c8a6e09569b0f9a166dc4996c5;p=spider.git

diff --git a/perl/Prefix.pm b/perl/Prefix.pm
index bc8a0edf..48206cea 100644
--- a/perl/Prefix.pm
+++ b/perl/Prefix.pm
@@ -481,7 +481,7 @@ 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);
+		return ($dxcc[1]->dxcc, $dxcc[1]->itu, $dxcc[1]->cq, ($dxcc[1]->state||''), ($dxcc[1]->city||''));
 	}
 	return (666,0,0,'','');		
 }