… | |
… | |
573 | Allocate $time seconds of blocking CPU time at priority C<$priority> |
573 | Allocate $time seconds of blocking CPU time at priority C<$priority> |
574 | (default: 0): This call blocks and returns only when you have at least |
574 | (default: 0): This call blocks and returns only when you have at least |
575 | C<$time> seconds of cpu time till the next tick. The slot is only valid |
575 | C<$time> seconds of cpu time till the next tick. The slot is only valid |
576 | till the next cede. |
576 | till the next cede. |
577 | |
577 | |
578 | Background jobs should use a priority les than zero, interactive jobs |
578 | Background jobs should use a priority less than zero, interactive jobs |
579 | should use 100 or more. |
579 | should use 100 or more. |
580 | |
580 | |
581 | The optional C<$name> can be used to identify the job to run. It might be |
581 | The optional C<$name> can be used to identify the job to run. It might be |
582 | used for statistical purposes and should identify the same time-class. |
582 | used for statistical purposes and should identify the same time-class. |
583 | |
583 | |
… | |
… | |
738 | reset_signals; |
738 | reset_signals; |
739 | } |
739 | } |
740 | |
740 | |
741 | sub fork_call(&@) { |
741 | sub fork_call(&@) { |
742 | my ($cb, @args) = @_; |
742 | my ($cb, @args) = @_; |
743 | |
|
|
744 | # we seemingly have to make a local copy of the whole thing, |
|
|
745 | # otherwise perl prematurely frees the stuff :/ |
|
|
746 | # TODO: investigate and fix (likely this will be rather laborious) |
|
|
747 | |
743 | |
748 | my @res = Coro::Util::fork_eval { |
744 | my @res = Coro::Util::fork_eval { |
749 | cf::post_fork; |
745 | cf::post_fork; |
750 | &$cb |
746 | &$cb |
751 | } @args; |
747 | } @args; |
… | |
… | |
3204 | id => "death", |
3200 | id => "death", |
3205 | title => "Death", |
3201 | title => "Death", |
3206 | reply => undef, |
3202 | reply => undef, |
3207 | tooltip => "Reason for and more info about your most recent death", |
3203 | tooltip => "Reason for and more info about your most recent death", |
3208 | }, |
3204 | }, |
|
|
3205 | "c/fatal" => { |
|
|
3206 | id => "fatal", |
|
|
3207 | title => "Fatal Error", |
|
|
3208 | reply => undef, |
|
|
3209 | tooltip => "Reason for the server disconnect", |
|
|
3210 | }, |
3209 | "c/say" => $SAY_CHANNEL, |
3211 | "c/say" => $SAY_CHANNEL, |
3210 | "c/chat" => $CHAT_CHANNEL, |
3212 | "c/chat" => $CHAT_CHANNEL, |
3211 | ); |
3213 | ); |
3212 | |
3214 | |
3213 | sub cf::client::send_msg { |
3215 | sub cf::client::send_msg { |