projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
b7dedfe
)
lengthen trailing numeric part of prefix
author
Dirk Koopman
<djk@tobit.co.uk>
Mon, 8 Jun 2020 16:38:43 +0000
(17:38 +0100)
committer
Dirk Koopman
<djk@tobit.co.uk>
Mon, 8 Jun 2020 16:41:12 +0000
(17:41 +0100)
to allow things like GB5000GCM etc
perl/DXUtil.pm
patch
|
blob
|
history
diff --git
a/perl/DXUtil.pm
b/perl/DXUtil.pm
index 20837f2f6494f1f5d7645e3d96c41c4a5d46eb8d..d23cb92ea7daa952d57c1deacaa843aa6b329f19 100644
(file)
--- a/
perl/DXUtil.pm
+++ b/
perl/DXUtil.pm
@@
-384,7
+384,7
@@
sub is_callsign
{
return $_[0] =~ m!^
(?:\d?[A-Z]{1,2}\d{0,2}/)? # out of area prefix /
- (?:\d?[A-Z]{1,2}\d{1,
2}) # main prefix one (required)
+ (?:\d?[A-Z]{1,2}\d{1,
5}) # main prefix one (required) - lengthened for special calls
[A-Z]{1,5} # callsign letters (required)
(?:-(?:\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