--bug

btittelbach · Nov 15, 2012 · 7d4ec2e · 7d4ec2e
1 parent e06bc00
commit 7d4ec2e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/mkwaypoint.pl b/mkwaypoint.pl
@@ -43,7 +43,7 @@ sub convert_single
 {
   my $c=uc(shift(@_));
   $c=~s/,/./;
-  if ($c=~/(N|S|W|E|O)?\s*(\d{2,3})\D*(\d{1,2}\.\d{3})/) {
+  if ($c=~/(N|S|W|E|O)?\s*(\d{2,3})\D+(\d{1,2}\.\d{3})/) {
     my $nv = ($2+($3/60));
     $nv = 0.0-$nv if ($1 eq "S" or $1 eq "W");
     return $nv;