diff options
author | Yorhel <git@yorhel.nl> | 2015-07-18 01:20:35 +0200 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2015-07-18 01:20:35 +0200 |
commit | 9c7776828a722edcd7bb5eb0ebf61e4a08d7ecd2 (patch) | |
tree | 71d2b3a4db50e698bc32500d46f0ee452b61c450 /lib/Multi | |
parent | da49b95f180b6fab068bdf88d4d206ca8db2f06b (diff) |
Multi::Maintenance: Fix bug in calculating timer for monthly cron
AE::timer accepts a time interval as argument, not a complete
timestamp. So the monthly cron job hasn't run in a while...
Diffstat (limited to 'lib/Multi')
-rw-r--r-- | lib/Multi/Maintenance.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Multi/Maintenance.pm b/lib/Multi/Maintenance.pm index d7a9907d..23fb6db5 100644 --- a/lib/Multi/Maintenance.pm +++ b/lib/Multi/Maintenance.pm @@ -36,7 +36,7 @@ sub set_monthly { my $nextday = int((time+3)/86400+1)*86400 + 12*3600; my $thismonth = (gmtime)[5]*100+(gmtime)[4]; # year*100 + month, for easy comparing $nextday += 86400 while (gmtime $nextday)[5]*100+(gmtime $nextday)[4] <= $thismonth; - $monthly = AE::timer $nextday, 0, \&monthly; + $monthly = AE::timer $nextday-time(), 0, \&monthly; } |