X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FJulian.pm;h=07bf3849aa65df00fcdb34b82e24c51ca2c90496;hb=de987b900c04d852acec5e1af9a4326b16533253;hp=8b3b74fdb8dd235b5c3dbb24e5376fe65106952c;hpb=9da1742219a27b1c02fd57794412088e4d7b3d1d;p=spider.git

diff --git a/perl/Julian.pm b/perl/Julian.pm
index 8b3b74fd..07bf3849 100644
--- a/perl/Julian.pm
+++ b/perl/Julian.pm
@@ -20,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);
 }
 
@@ -31,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);
 }