From bf3eac0fc8e37e0dcd9631051c838d0dbb1d33e6 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Mon, 8 Jun 2020 17:38:43 +0100 Subject: [PATCH] lengthen trailing numeric part of prefix to allow things like GB5000GCM etc --- perl/DXUtil.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl/DXUtil.pm b/perl/DXUtil.pm index 20837f2f..d23cb92e 100644 --- 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 -- 2.43.0