X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Fqra.pl;fp=cmd%2Fshow%2Fqra.pl;h=f18b29b4b5af9da7b398886aba5fe7db3667d791;hb=bd112338bcd942b903af05dd76a01dca2cc9c026;hp=6269a0d57093336783d9ce9004bf12b84e2f4aab;hpb=9cac31473878fc88778cb13d843fa77c5fd33d65;p=spider.git

diff --git a/cmd/show/qra.pl b/cmd/show/qra.pl
index 6269a0d5..f18b29b4 100644
--- 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 $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