X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FSun.pm;h=5190db184e58c2d311ce5ddf60ac3abd9d0a2873;hb=a893c459de8e5d31f7b3dc67d4cda11a389df45b;hp=6b9b88eb4da0edf6dc59656e2b6af2a8d270d986;hpb=8409ae7d77dc4c13bab2062703a094a4a12c1664;p=spider.git

diff --git a/perl/Sun.pm b/perl/Sun.pm
index 6b9b88eb..5190db18 100644
--- a/perl/Sun.pm
+++ b/perl/Sun.pm
@@ -16,7 +16,7 @@
 #
 # Copyright (c) 1999 - Steve Franke K9AN
 #
-# $Id$
+#
 # 
 # 2005/02/25 add calculation of civil dawn and dusk, defined to be times
 #            when solar zenith angle is 96 degrees.
@@ -26,7 +26,6 @@
 
 package Sun;
 
-use POSIX;
 
 require Exporter;
 @ISA = qw(Exporter);
@@ -34,22 +33,13 @@ require Exporter;
 
 use strict;
 
-use vars qw($VERSION $BRANCH);
-$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/  || (0,0));
-$main::build += $VERSION;
-$main::branch += $BRANCH;
-
-use vars qw($pi $d2r $r2d);
- 
-$pi = 3.141592653589;
-$d2r = ($pi/180);
-$r2d = (180/$pi);
-
 use vars qw(%keps);
 use Keps;
 use DXVars;
 use DXUtil;
+use DXDebug;
+
+use POSIX qw(:math_h);
 
 # reload the keps data
 sub load