projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added -c option to convkeps.pl
[spider.git]
/
cmd
/
show
/
qra.pl
diff --git
a/cmd/show/qra.pl
b/cmd/show/qra.pl
index 6269a0d57093336783d9ce9004bf12b84e2f4aab..f18b29b4b5af9da7b398886aba5fe7db3667d791 100644
(file)
--- a/
cmd/show/qra.pl
+++ b/
cmd/show/qra.pl
@@
-23,7
+23,7
@@
if (!$long && !$lat) {
my $fqra = DXBearing::is_qra($list[0]);
my $sqra = $list[0] =~ /^[A-Za-z][A-Za-z]\d\d$/;
my $fqra = DXBearing::is_qra($list[0]);
my $sqra = $list[0] =~ /^[A-Za-z][A-Za-z]\d\d$/;
-my $ll = $line =~ /^\d+\s+\d+\s
*[NSns]\s+\d+\s+\d+\s*
[EWew]/;
+my $ll = $line =~ /^\d+\s+\d+\s
+[NSns]\s+\d+\s+\d+\s+
[EWew]/;
return (1, $self->msg('qrae2', $list[0])) unless $fqra || $sqra || $ll;
# convert a lat/long into a qra locator
return (1, $self->msg('qrae2', $list[0])) unless $fqra || $sqra || $ll;
# convert a lat/long into a qra locator