--- deliantra/server/ext/rent.ext 2007/06/26 04:56:10 1.10 +++ deliantra/server/ext/rent.ext 2007/09/13 08:35:24 1.11 @@ -47,6 +47,8 @@ sub pay_balance { my ($pl) = @_; + cf::cede_to_tick; + update_balance $pl; return unless $pl->{rent}{balance} > 0; @@ -188,7 +190,7 @@ after => 60, interval => 3600, data => cf::WF_AUTOCANCEL, - cb => sub { + cb => Coro::unblock_sub { pay_balance $_ for cf::player::list; }, );