X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=perl%2FDXUtil.pm;h=3e47f6e9d1980583bb540c271fe882aaaaf96075;hb=8ce3e54056026253e9e4a518b317dbbd8e71bb7a;hp=9c14715c5ee073bdfa105302bc36c0bfaf5f6cd9;hpb=63cd679163fe336521e95e8af821b30d4bc1b9e9;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