X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXBearing.pm;h=ea17c2a4221e58d5143f4786ec9d160e9acfb033;hb=e00a697bdb9f7c066b3e921d4f8ccc9bb9cf7485;hp=798339cbcaf5b231799c8b636e04cbfdc79e32bb;hpb=f2e898274129b45146a83630928e484d814a322a;p=spider.git

diff --git a/perl/DXBearing.pm b/perl/DXBearing.pm
index 798339cb..ea17c2a4 100644
--- a/perl/DXBearing.pm
+++ b/perl/DXBearing.pm
@@ -88,7 +88,7 @@ sub dr
 sub is_qra
 {
 	my $qra = shift;
-	return $qra =~ /\a\a\d\d\a\a/o;
+	return $qra =~ /^[A-Za-z][A-Za-z]\d\d[A-Za-z][A-Za-z]$/o;
 }
 
 # calc bearing and distance, with arguments in DEGREES