Index: Cache.pm =================================================================== --- Cache.pm (revision 33670) +++ Cache.pm (working copy) @@ -54,7 +54,7 @@ my $DEFAULT_EXPIRES_TIME = '1 hour'; -my $PURGE_INTERVAL = 60 * 60 * 24; # interval between purge cycles +my $PURGE_INTERVAL = 60 * 60 * 6; # interval between purge cycles my $PURGE_RETRY = 60 * 60; # retry time if players are on my $PURGE_NEXT = 30; # purge next namespace @@ -226,8 +226,11 @@ $interval = $startUpPurge ? 0.1 : $PURGE_NEXT; } else { $interval = $PURGE_INTERVAL; - $startUpPurge = 0; push @thisCycle, @eachCycle; + + # always run one purging task at startup + $namespace ||= shift @thisCycle if $startUpPurge; + $startUpPurge = 0; } }