| … | |
… | |
| 336 | )) { |
336 | )) { |
| 337 | @{"safe::$pkg\::wrap::ISA"} = @{"$pkg\::wrap::ISA"} = $pkg; |
337 | @{"safe::$pkg\::wrap::ISA"} = @{"$pkg\::wrap::ISA"} = $pkg; |
| 338 | } |
338 | } |
| 339 | |
339 | |
| 340 | $EV::DIED = sub { |
340 | $EV::DIED = sub { |
| 341 | Carp::cluck "error in event callback: @_"; |
341 | warn "error in event callback: $@"; |
| 342 | }; |
342 | }; |
| 343 | |
343 | |
| 344 | ############################################################################# |
344 | ############################################################################# |
| 345 | |
345 | |
| 346 | sub fork_call(&@); |
346 | sub fork_call(&@); |
