| … | |
… | |
| 19 | Remember that everything entered here will be in the main coro context within cf::! |
19 | Remember that everything entered here will be in the main coro context within cf::! |
| 20 | You can freely use \$a .. \$z and \@l and \%l |
20 | You can freely use \$a .. \$z and \@l and \%l |
| 21 | |
21 | |
| 22 | Useful commands (note the '&'): |
22 | Useful commands (note the '&'): |
| 23 | |
23 | |
|
|
24 | reload_exp & |
| 24 | reload_perl & |
25 | reload_perl & |
| 25 | reload_sound & |
26 | reload_sound & |
| 26 | reload_config & |
27 | reload_config & |
| 27 | reload_regions & |
28 | reload_regions & |
| 28 | reload_facedata & |
29 | reload_facedata & |
| … | |
… | |
| 96 | if (my $listen = new IO::Socket::INET LocalAddr => $cf::CFG{perl_shell}, Listen => 1, ReuseAddr => 1, Blocking => 0) { |
97 | if (my $listen = new IO::Socket::INET LocalAddr => $cf::CFG{perl_shell}, Listen => 1, ReuseAddr => 1, Blocking => 0) { |
| 97 | $LISTENER = AE::io $listen, 0, sub { tcp_serve $listen->accept }; |
98 | $LISTENER = AE::io $listen, 0, sub { tcp_serve $listen->accept }; |
| 98 | } |
99 | } |
| 99 | } |
100 | } |
| 100 | |
101 | |
| 101 | |
|
|
