projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
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