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

diff --git a/perl/Sun.pm b/perl/Sun.pm
index 6b9b88eb..6469df8c 100644
--- a/perl/Sun.pm
+++ b/perl/Sun.pm
@@ -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