package Julian;
-use Carp;
-
use strict;
my @days = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
my $t = shift;
my ($year, $day) = (gmtime($t))[5,7];
- if ($year < 100) {
- $year += ($year < 50) ? 2000 : 1900;
- }
+ $year += 1900;
return ($year, $day+1);
}
{
my $t = shift;
my ($mon, $year) = (gmtime($t))[4..5];
- if ($year < 100) {
- $year += ($year < 50) ? 2000 : 1900;
- }
+
+ $year += 1900;
return ($year, $mon + 1);
}