Foro - Perl en Español

Hola, tengo un daemon HTTP hecho en Perl que funciona de 10... pero hay algo que funciona bien y no se por qué Se las hago fácil:

Creo un server con my $server = IO::Socket::INET->new(...)

Tengo un bucle para las conexiones while ($client = $server->accept()){...}continue{} que las trata con FORK...

Y luego del bucle coloco el código para cuando se termine (que pensaba controlar con una variable escalar que cambiara de valor al capturar algún SIGNAL, lo cual NO FUE NECESARIO)

Cuando le tiro un SIGNAL 2 (int) automáticamente sale del bucle y ejecuta el código que viene luego del while... SIN QUE SE LO MARQUE YO...

¿Es normal esto? ¿Que un kill(2, $pid) corte el bucle? ¿Elimina la conexión al socket de $server? ¿Cómo es que el bucle se corta?

Desde ya muchas gracias... Sé que no es fácil de contestar... jeje... tampoco es vital... funcionar funciona... y muy bien...

Saludos

Creo que lo pone en

http://perldoc.perl.org/perlipc.html#In ... nd-Servers

If accept() is interrupted by a signal then $! will be set to EINTR. If this happens then we can safely continue to the next iteration of the loop and another call to accept(). It is important that your signal handling code doesn't modify the value of $! or this test will most likely fail. In the REAPER subroutine we create a local version of $! before calling waitpid(). When waitpid() sets $! to ECHILD (as it inevitably does when it has no more children waiting), it will update the local copy leaving the original unchanged.

Pero esto está hablando del hijo, la función REAPER y waitpid es para que salga del hijo y el padre siga en otra iteración...

Yo hablo de salir del padre... para detener el servicio...

Saludos