X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUtil.pm;h=9f63c8908234eea858730c314d99493d1d69364a;hb=337f38bfac57a5e5df34c63094fb869b0e2f6bee;hp=667194afb52ceeaf35010e3e9100f8b2bca005f8;hpb=f91e843bd91e37a969d0be7e1168649b076e5170;p=spider.git

diff --git a/perl/DXUtil.pm b/perl/DXUtil.pm
index 667194af..9f63c890 100644
--- 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;
-  $min = int (($n - $deg) * 60);
+  $min = int ((($n - $deg) * 60) + 0.5);
   return "$deg $min $let";
 }
 
@@ -89,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";
 }
 
@@ -118,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