X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUtil.pm;h=c633413e7bfa2a0fdef19fde66645dffcef91ce6;hb=171f9837d8bb99d05c2b3bb87066d25d448eabd3;hp=219e9f3bed6c3cdff7fdb1601eb1308c7e4be21e;hpb=6af9f2685f27610ff519df7da4ce3934f6ca1d85;p=spider.git

diff --git a/perl/DXUtil.pm b/perl/DXUtil.pm
index 219e9f3b..c633413e 100644
--- a/perl/DXUtil.pm
+++ b/perl/DXUtil.pm
@@ -379,7 +379,7 @@ sub is_qra
 # does it look like a valid lat/long
 sub is_latlong
 {
-	return $_[0] =~ /^\s*\d{1,2}\s+\d{1,2}\s*[NnSs]\s+\d{1,2}\s+\d{1,2}\s*[EeWw]\s*$/;
+	return $_[0] =~ /^\s*\d{1,2}\s+\d{1,2}\s*[NnSs]\s+1?\d{1,2}\s+\d{1,2}\s*[EeWw]\s*$/;
 }
 
 # insert an item into a list if it isn't already there returns 1 if there 0 if not