| … | |
… | |
| 481 | sub fork_call(&@) { |
481 | sub fork_call(&@) { |
| 482 | my ($cb, @args) = @_; |
482 | my ($cb, @args) = @_; |
| 483 | |
483 | |
| 484 | # we seemingly have to make a local copy of the whole thing, |
484 | # we seemingly have to make a local copy of the whole thing, |
| 485 | # otherwise perl prematurely frees the stuff :/ |
485 | # otherwise perl prematurely frees the stuff :/ |
| 486 | # TODO: investigate and fix (liekly this will be rather laborious) |
486 | # TODO: investigate and fix (likely this will be rather laborious) |
| 487 | |
487 | |
| 488 | my @res = Coro::Util::fork_eval { |
488 | my @res = Coro::Util::fork_eval { |
| 489 | reset_signals; |
489 | reset_signals; |
| 490 | &$cb |
490 | &$cb |
| 491 | }, @args; |
491 | }, @args; |
