… | |
… | |
372 | |
372 | |
373 | use IO::FDPass; |
373 | use IO::FDPass; |
374 | |
374 | |
375 | our $VERSION = 0.6; |
375 | our $VERSION = 0.6; |
376 | |
376 | |
377 | our $PERL; # the path to the perl interpreter, deduces with various forms of magic |
|
|
378 | |
|
|
379 | =over 4 |
377 | =over 4 |
380 | |
378 | |
381 | =back |
379 | =back |
382 | |
380 | |
383 | =cut |
381 | =cut |
… | |
… | |
461 | if ($pid eq 0) { |
459 | if ($pid eq 0) { |
462 | require AnyEvent::Fork::Serve; |
460 | require AnyEvent::Fork::Serve; |
463 | $AnyEvent::Fork::Serve::OWNER = $parent; |
461 | $AnyEvent::Fork::Serve::OWNER = $parent; |
464 | close $fh; |
462 | close $fh; |
465 | $0 = "$_[1] of $parent"; |
463 | $0 = "$_[1] of $parent"; |
466 | $SIG{CHLD} = 'IGNORE'; |
|
|
467 | AnyEvent::Fork::Serve::serve ($slave); |
464 | AnyEvent::Fork::Serve::serve ($slave); |
468 | exit 0; |
465 | exit 0; |
469 | } elsif (!$pid) { |
466 | } elsif (!$pid) { |
470 | die "AnyEvent::Fork::Early/Template: unable to fork template process: $!"; |
467 | die "AnyEvent::Fork::Early/Template: unable to fork template process: $!"; |
471 | } |
468 | } |