X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FPrefix.pm;h=086e0725284c6524fe11900e252a3fdf082f3345;hb=48f0cb90d0cfbe3037f353fc25adfc33561634fa;hp=9a5f45da207b69df499ce7655cd0737864ad5fcf;hpb=59e7157e3e342e629b1badcf1ba7d992b58a5caf;p=spider.git

diff --git a/perl/Prefix.pm b/perl/Prefix.pm
index 9a5f45da..086e0725 100644
--- a/perl/Prefix.pm
+++ b/perl/Prefix.pm
@@ -442,7 +442,7 @@ L1:		for ($n = 0; $n < @parts; $n++) {
 		}
 
 		# we are a pirate!
-		@nout = matchprefix('Q');
+		@nout = matchprefix('QQ');
 		$misses++;
 		lru_put($call, \@nout);
 		push @out, @nout;
@@ -511,16 +511,16 @@ sub cty_data
 }
 
 my %valid = (
+			 city => '0,City',
+			 cont => '0,Continent',
+			 cq => '0,CQ',
+			 dxcc => '0,DXCC',
+			 itu => '0,ITU',
 			 lat => '0,Latitude,slat',
 			 long => '0,Longitude,slong',
-			 dxcc => '0,DXCC',
 			 name => '0,Name',
-			 itu => '0,ITU',
-			 cq => '0,CQ',
 			 state => '0,State',
-			 city => '0,City',
 			 utcoff => '0,UTC offset',
-			 cont => '0,Continent',
 			);
 
 sub AUTOLOAD