ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/AnyEvent-Fork/Fork.pm
(Generate patch)

Comparing AnyEvent-Fork/Fork.pm (file contents):
Revision 1.40 by root, Sat Apr 6 22:41:56 2013 UTC vs.
Revision 1.41 by root, Mon Apr 8 03:20:53 2013 UTC

… …
372 372
373use IO::FDPass; 373use IO::FDPass;
374 374
375our $VERSION = 0.6; 375our $VERSION = 0.6;
376 376
377our $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 }

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines