projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added more help
[spider.git]
/
perl
/
DXUtil.pm
diff --git
a/perl/DXUtil.pm
b/perl/DXUtil.pm
index 667194afb52ceeaf35010e3e9100f8b2bca005f8..9f63c8908234eea858730c314d99493d1d69364a 100644
(file)
--- a/
perl/DXUtil.pm
+++ b/
perl/DXUtil.pm
@@
-77,7
+77,7
@@
sub slat
$let = $n >= 0 ? 'N' : 'S';
$n = abs $n;
$deg = int $n;
$let = $n >= 0 ? 'N' : 'S';
$n = abs $n;
$deg = int $n;
- $min = int ((
$n - $deg) * 60
);
+ $min = int ((
($n - $deg) * 60) + 0.5
);
return "$deg $min $let";
}
return "$deg $min $let";
}
@@
-89,7
+89,7
@@
sub slong
$let = $n >= 0 ? 'E' : 'W';
$n = abs $n;
$deg = int $n;
$let = $n >= 0 ? 'E' : 'W';
$n = abs $n;
$deg = int $n;
- $min = int ((
$n - $deg) * 60
);
+ $min = int ((
($n - $deg) * 60) + 0.5
);
return "$deg $min $let";
}
return "$deg $min $let";
}
@@
-118,7
+118,8
@@
sub promptf
# take an arg as an array list and print it
sub parray
{
# take an arg as an array list and print it
sub parray
{
- return join(', ', @{shift});
+ my $ref = shift;
+ return join(', ', @{$ref});
}
# take the arg as an array reference and print as a list of pairs
}
# take the arg as an array reference and print as a list of pairs