Fork() inmortal en Perl

[Salvador Ortiz Garcia]

On Wed, 5 Jan 2000, Gunnar Wolf wrote:

> Estoy trabajando con un problema que espero me puedan ayudar a resolver:
> 
> El pedazo de codigo relevante es:
> 
>     while ($client = $server->accept()) {                                                                                                                  
>         die "Can't fork!: $@" if (!defined ($child=fork()));                                                                                               
>         if ($child == 0) {                                                                       
...
>             exit 0;                                                                                                                                        
>         } else {                                                                                                                                           
...
>         }                                                                                                                                                  
>     }
> 
> A alguien se le ocurre lo que puede estar pasando?

Está pasando que no has hecho tu tarea y leido 3 veces completo el 
"Advanced UNIX Programing" de Stevens ;-)

O rescatas a tus hijos muertos con wait o, mejor en tu caso, ignoras
SIG_CHLD, que en perl es:

$SIG{CHLD} = 'IGNORE';

antes de tu loop.

Dale una leida perlipc(1)

BTW: Estás en la lista de perl? Pues estas preguntas las contesto de pura
chiripada en ayuda en linux.org.mx.

Saludos

Salvador Ortiz


-- 
Para desuscribirse, mande correo a: ayuda-unsubscribe en linux.org.mx
Para comandos adicionales, envíelo a: ayuda-help en linux.org.mx