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

diff --git a/perl/Sun.pm b/perl/Sun.pm
index 6b9b88eb..aaf85a33 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,12 +33,6 @@ 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;
@@ -50,6 +43,9 @@ use vars qw(%keps);
 use Keps;
 use DXVars;
 use DXUtil;
+use DXDebug;
+
+use POSIX qw(:math_h);
 
 # reload the keps data
 sub load