From 9c7776828a722edcd7bb5eb0ebf61e4a08d7ecd2 Mon Sep 17 00:00:00 2001
From: Yorhel <git@yorhel.nl>
Date: Sat, 18 Jul 2015 01:20:35 +0200
Subject: 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...
---
 lib/Multi/Maintenance.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/Multi')

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;
 }
 
 
-- 
cgit v1.2.3