X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FSpot.pm;h=9fcf3280d95ad8359516ee58c26e168114bb6f78;hb=3525b8b90ab568e06f57d12c4c3ad9610b9e71f9;hp=be175ff04ca26e153a773630a58385e92e19e055;hpb=dd73f6f34ce7f3e142e480dfb7153611d87f509b;p=spider.git

diff --git a/perl/Spot.pm b/perl/Spot.pm
index be175ff0..9fcf3280 100644
--- a/perl/Spot.pm
+++ b/perl/Spot.pm
@@ -41,6 +41,7 @@ $filterdef = bless ([
 					 ['info', 't', 3],
 					 ['spotter', 'c', 4],
 					 ['by', 'c', 4],
+					 ['dxcc', 'nc', 5],
 					 ['call_dxcc', 'nc', 5],
 					 ['by_dxcc', 'nc', 6],
 					 ['origin', 'c', 7, 9],
@@ -88,7 +89,7 @@ sub decodefreq
 	
 	foreach $f (@f) {
 		my ($a, $b); 
-		if (m{^\d+/\d+$}) {
+		if ($f =~ m{^\d+/\d+$}) {
 			push @out, $f;
 		} elsif (($a, $b) = $f =~ m{^(\w+)(?:/(\w+))?$}) {
 			$b = lc $b if $b;