X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FJulian.pm;h=861f84d441aef14e79d9727b0956bb659e79b99b;hb=cc75f4ffe229e8ff381828f88a68c89cec818788;hp=c770e4a964731410c1559eff9fb0b8eb572b102f;hpb=cef696652d16bbeec53aca45234ea0b64f3496d3;p=spider.git

diff --git a/perl/Julian.pm b/perl/Julian.pm
index c770e4a9..861f84d4 100644
--- a/perl/Julian.pm
+++ b/perl/Julian.pm
@@ -8,10 +8,6 @@
 
 package Julian;
 
-use FileHandle;
-use DXDebug;
-use Carp;
-
 use strict;
 
 my @days = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
@@ -22,9 +18,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 +27,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);
 }