| … | |
… | |
| 80 | |
80 | |
| 81 | # we bless all objects into (empty) derived classes to force a method lookup |
81 | # we bless all objects into (empty) derived classes to force a method lookup |
| 82 | # within the Safe compartment. |
82 | # within the Safe compartment. |
| 83 | for my $pkg (qw( |
83 | for my $pkg (qw( |
| 84 | cf::object cf::object::player |
84 | cf::object cf::object::player |
| 85 | cf::client_socket cf::player |
85 | cf::client cf::player |
| 86 | cf::arch cf::living |
86 | cf::arch cf::living |
| 87 | cf::map cf::party cf::region |
87 | cf::map cf::party cf::region |
| 88 | )) { |
88 | )) { |
| 89 | no strict 'refs'; |
89 | no strict 'refs'; |
| 90 | @{"safe::$pkg\::wrap::ISA"} = @{"$pkg\::wrap::ISA"} = $pkg; |
90 | @{"safe::$pkg\::wrap::ISA"} = @{"$pkg\::wrap::ISA"} = $pkg; |
| … | |
… | |
| 1171 | }; |
1171 | }; |
| 1172 | |
1172 | |
| 1173 | unshift @INC, $LIBDIR; |
1173 | unshift @INC, $LIBDIR; |
| 1174 | |
1174 | |
| 1175 | $TICK_WATCHER = Event->timer ( |
1175 | $TICK_WATCHER = Event->timer ( |
| 1176 | prio => 1, |
1176 | prio => 0, |
| 1177 | async => 1, |
|
|
| 1178 | at => $NEXT_TICK || 1, |
1177 | at => $NEXT_TICK || 1, |
| 1179 | data => WF_AUTOCANCEL, |
1178 | data => WF_AUTOCANCEL, |
| 1180 | cb => sub { |
1179 | cb => sub { |
| 1181 | cf::server_tick; # one server iteration |
1180 | cf::server_tick; # one server iteration |
| 1182 | |
1181 | |
