… | |
… | |
1331 | }; |
1331 | }; |
1332 | |
1332 | |
1333 | unshift @INC, $LIBDIR; |
1333 | unshift @INC, $LIBDIR; |
1334 | |
1334 | |
1335 | $TICK_WATCHER = Event->timer ( |
1335 | $TICK_WATCHER = Event->timer ( |
|
|
1336 | reentrant => 0, |
1336 | prio => 0, |
1337 | prio => 0, |
1337 | at => $NEXT_TICK || $TICK, |
1338 | at => $NEXT_TICK || $TICK, |
1338 | data => WF_AUTOCANCEL, |
1339 | data => WF_AUTOCANCEL, |
1339 | cb => sub { |
1340 | cb => sub { |
1340 | unless ($FREEZE) { |
1341 | unless ($FREEZE) { |
1341 | cf::server_tick; # one server iteration |
1342 | cf::server_tick; # one server iteration |
1342 | $RUNTIME += $TICK; |
1343 | $RUNTIME += $TICK; |
1343 | } |
1344 | } |
1344 | |
1345 | |