X-Git-Url: http://scm.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUtil.pm;h=9f63c8908234eea858730c314d99493d1d69364a;hb=7a64dbf69ead057f2fd3fef1df05e30cef339485;hp=24ab19a614f17b05e2a3b9305f2e6af07605cf88;hpb=84505457c5b3757715d97a63acd792b28fc1841a;p=spider.git

diff --git a/perl/DXUtil.pm b/perl/DXUtil.pm
index 24ab19a6..9f63c890 100644
--- a/perl/DXUtil.pm
+++ b/perl/DXUtil.pm
@@ -9,6 +9,7 @@
 package DXUtil;
 
 use Date::Parse;
+use Carp;
 
 require Exporter;
 @ISA = qw(Exporter);
@@ -76,7 +77,7 @@ sub slat
   $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";
 }
 
@@ -88,7 +89,7 @@ sub slong
   $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";
 }
 
@@ -117,7 +118,8 @@ sub promptf
 # 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