summaryrefslogtreecommitdiff
path: root/lib/Multi
diff options
context:
space:
mode:
authorYorhel <git@yorhel.nl>2015-07-18 01:20:35 +0200
committerYorhel <git@yorhel.nl>2015-07-18 01:20:35 +0200
commit9c7776828a722edcd7bb5eb0ebf61e4a08d7ecd2 (patch)
tree71d2b3a4db50e698bc32500d46f0ee452b61c450 /lib/Multi
parentda49b95f180b6fab068bdf88d4d206ca8db2f06b (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.pm2
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;
}