diff --git a/test/history.monthly.t b/test/history.monthly.t index 2d4b46f80..422e06d05 100755 --- a/test/history.monthly.t +++ b/test/history.monthly.t @@ -43,7 +43,7 @@ if (open my $fh, '>', 'time.rc') my @timeArray = localtime(time); my $now = time (); -my $lastmonth = $now - $timeArray[3] * 86_400; +my $lastmonth = $now - ($timeArray[3] + 1) * 86_400; if (open my $fh, '>', 'pending.data') {