X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUtil.pm;h=3e47f6e9d1980583bb540c271fe882aaaaf96075;hb=8bb4b460148fbc97739e8645f627cb9ab049d512;hp=9c14715c5ee073bdfa105302bc36c0bfaf5f6cd9;hpb=c60ec0cc6e744296f4f22826f0cfe80909095e27;p=spider.git

diff --git a/perl/DXUtil.pm b/perl/DXUtil.pm
index 9c14715c..3e47f6e9 100644
--- a/perl/DXUtil.pm
+++ b/perl/DXUtil.pm
@@ -385,8 +385,8 @@ sub is_callsign
 					  (?:(?:[A-Z]{1,2}\d* | \d[A-Z]{1,2}\d*)/)?   # out of area prefix /
 					  (?:[A-Z]{1,2}\d+ | \d[A-Z]{1,2}\d+)?        # main prefix one 
 					  [A-Z]{1,5}                                  # callsign letters
-					  (?:-\d{1,2})?                               # - nn possibly (eg G8BPQ-8)
-					  (?:/[0-9A-Z]{1,7})?                        # / another prefix, callsign or special label (including /MM, /P as well as /EURO or /LGT) possibly
+					  (?:-(?:\d{1,2}|\#))?                        # - nn possibly (eg G8BPQ-8) or -# (an RBN spot) 
+					  (?:/[0-9A-Z]{1,7})?                         # / another prefix, callsign or special label (including /MM, /P as well as /EURO or /LGT) possibly
 					  $!x;
 
 	# longest callign allowed is 1X11/1Y11XXXXX-11/XXXXXXX