… | |
… | |
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; |