projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
added better anti spot-sucking
[spider.git]
/
perl
/
Julian.pm
diff --git
a/perl/Julian.pm
b/perl/Julian.pm
index ecef2d81e0f3bb5809ced2ebe4989114bc9c6eb3..5351aa278c98bec968dabe03e20339284c8321f8 100644
(file)
--- a/
perl/Julian.pm
+++ b/
perl/Julian.pm
@@
-79,9
+79,9
@@
sub sub($$)
my $diny = _isleap($self->[0]) ? 366 : 365;
$self->[1] -= $amount;
while ($self->[1] <= 0) {
- $self->[1] += $diny;
$self->[0] -= 1;
$diny = _isleap($self->[0]) ? 366 : 365;
+ $self->[1] += $diny;
}
return $self;
}