summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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;
}