--- deliantra/server/ext/rent.ext	2007/01/05 01:06:27	1.5
+++ deliantra/server/ext/rent.ext	2007/01/21 21:28:27	1.6
@@ -190,7 +190,13 @@
    },
 ;
 
-our $RENT_TIMER = Event->timer (after => 60, interval => 3600, data => cf::WF_AUTOCANCEL, cb => sub {
-   pay_balance $_ for cf::player::list;
-});
+our $RENT_TIMER = Event->timer (
+   reentrant => 0,
+   after     => 60,
+   interval  => 3600,
+   data      => cf::WF_AUTOCANCEL,
+   cb        => sub {
+      pay_balance $_ for cf::player::list;
+   },
+);