Re^4: How to pass AnyEvent socket handle to pre-forked child process?

Thanks Pavel! Now I know that sockets can be shared between forked childen.

The following skeleton worked for me:

# parent domain
...
my $server_socket = IO::Socket::INET->new(        
    Listen => 5,
        ReuseAddr => 1,
    LocalAddr => 'a.b.c.d',    
    LocalPort => nnnn,
    Blocking  => 0    
) 

# fork n children ...

# child domain:
fh_nonblocking $server_socket, 1;
my $w = AE::io $server_socket, 0, sub {
  while(accept my $client_socket, $server_socket) {
    # setup handlers for this new client: 
    $handles->{$client_id} = new AnyEvent::Handle(
      fh => $client_socket,
      on_read => sub { ... },
      on_error => sub { ... },
    );    
   $handles->{$client_id}->push_write ("Child $child_no welcome client
+ $client_id \015\012");
...
[download]

Comment on Re^4: How to pass AnyEvent socket handle to pre-forked child process? Download Code