added gdx comments

[spider.git] / perl / Julian.pm

diff --git a/perl/Julian.pm b/perl/Julian.pm
index c770e4a964731410c1559eff9fb0b8eb572b102f..07bf3849aa65df00fcdb34b82e24c51ca2c90496 100644 (file)
--- a/perl/Julian.pm
+++ b/perl/Julian.pm
@@ -8,8 +8,6 @@
 
 package Julian;
 
-use FileHandle;
-use DXDebug;
 use Carp;
 
 use strict;
@@ -22,9 +20,7 @@ sub unixtoj
        my $t = shift;
        my ($year, $day) = (gmtime($t))[5,7];
        
-       if ($year < 100) {
-               $year += ($year < 50) ? 2000 : 1900;
-       }
+       $year += 1900;
        return ($year, $day+1);
 }
 
@@ -33,9 +29,8 @@ sub unixtojm
 {
        my $t = shift;
        my ($mon, $year) = (gmtime($t))[4..5];
-       if ($year < 100) {
-               $year += ($year < 50) ? 2000 : 1900;
-       }
+
+       $year += 1900;
        return ($year, $mon + 1);
 }