projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add 'too many errors' message
[spider.git]
/
perl
/
Julian.pm
diff --git
a/perl/Julian.pm
b/perl/Julian.pm
index 1316fb42329202f86d240ea11315f297b8d80e1a..861f84d441aef14e79d9727b0956bb659e79b99b 100644
(file)
--- a/
perl/Julian.pm
+++ b/
perl/Julian.pm
@@
-8,9
+8,6
@@
package Julian;
package Julian;
-use DXDebug;
-use Carp;
-
use strict;
my @days = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
use strict;
my @days = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
@@
-21,9
+18,7
@@
sub unixtoj
my $t = shift;
my ($year, $day) = (gmtime($t))[5,7];
my $t = shift;
my ($year, $day) = (gmtime($t))[5,7];
- if ($year < 100) {
- $year += ($year < 50) ? 2000 : 1900;
- }
+ $year += 1900;
return ($year, $day+1);
}
return ($year, $day+1);
}
@@
-32,9
+27,8
@@
sub unixtojm
{
my $t = shift;
my ($mon, $year) = (gmtime($t))[4..5];
{
my $t = shift;
my ($mon, $year) = (gmtime($t))[4..5];
- if ($year < 100) {
- $year += ($year < 50) ? 2000 : 1900;
- }
+
+ $year += 1900;
return ($year, $mon + 1);
}
return ($year, $mon + 1);
}