# This file documents the revision history for Perl extension Catalyst.
-5.7011
+5.7012
+ - Fixed Engine::HTTP to use a proper SIGCHLD repear. Should fix issues with
+ system() calls returning -1 instead of the correct value. (Jon Schutz)
+
+5.7011 2007-10-18 20:40:00
- Allow multiple restart directories and added option to follow
symlinks in the HTTP::Restarter engine (Sebastian Willert)
- Fixed t/optional_http-server-restart.t so it actually tests
use Socket;
use IO::Socket::INET ();
use IO::Select ();
+use POSIX ":sys_wait_h";
# For PAR
require Catalyst::Engine::HTTP::Restarter;
}
my $restart = 0;
- local $SIG{CHLD} = 'IGNORE';
+ local $SIG{CHLD} = \&_REAPER;
my $allowed = $options->{allowed} || { '127.0.0.1' => '255.255.255.255' };
my $addr = $host ? inet_aton($host) : INADDR_ANY;
sub _inet_addr { unpack "N*", inet_aton( $_[0] ) }
+sub _REAPER {
+ my $child;
+ while ( ( $child = waitpid( -1,WNOHANG ) ) > 0 ) { }
+ $SIG{CHLD} = \&_REAPER;
+}
+
=head1 SEE ALSO
L<Catalyst>, L<Catalyst::Engine>.