| … | |
… | |
| 1310 | } |
1310 | } |
| 1311 | |
1311 | |
| 1312 | use File::Glob (); |
1312 | use File::Glob (); |
| 1313 | |
1313 | |
| 1314 | cf::player->attach ( |
1314 | cf::player->attach ( |
| 1315 | on_command => sub { |
1315 | on_unknown_command => sub { |
| 1316 | my ($pl, $name, $params) = @_; |
1316 | my ($pl, $name, $params) = @_; |
| 1317 | |
1317 | |
| 1318 | my $cb = $COMMAND{$name} |
1318 | my $cb = $COMMAND{$name} |
| 1319 | or return; |
1319 | or return; |
| 1320 | |
1320 | |
| … | |
… | |
| 3134 | |
3134 | |
| 3135 | $coro |
3135 | $coro |
| 3136 | } |
3136 | } |
| 3137 | |
3137 | |
| 3138 | cf::client->attach ( |
3138 | cf::client->attach ( |
| 3139 | on_destroy => sub { |
3139 | on_client_destroy => sub { |
| 3140 | my ($ns) = @_; |
3140 | my ($ns) = @_; |
| 3141 | |
3141 | |
| 3142 | $_->cancel for values %{ (delete $ns->{_coro}) || {} }; |
3142 | $_->cancel for values %{ (delete $ns->{_coro}) || {} }; |
| 3143 | }, |
3143 | }, |
| 3144 | ); |
3144 | ); |
