fixed some problems with headings

[spider.git] / perl / DXBearing.pm

diff --git a/perl/DXBearing.pm b/perl/DXBearing.pm
index 798339cbcaf5b231799c8b636e04cbfdc79e32bb..ea17c2a4221e58d5143f4786ec9d160e9acfb033 100644 (file)
--- 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