Add workaround for SIGCHLD bug in HTTP::Server::Simple

1 files changed, 5 insertions, 0 deletions

diff --git a/lib/TUWF.pm b/lib/TUWF.pm
index 65ba6ce..5d7a517 100644
--- a/lib/TUWF.pm
+++ b/lib/TUWF.pm
@@ -330,6 +330,11 @@ sub _load_module {
 sub _handle_request {
   my $self = shift;
 
+  # HTTP::Server::Simple modifies SIGCHLD in a way that breaks every approach
+  # to spawning a subprocess. Let's reset SIGCHLD to fix that.
+  # https://rt.cpan.org/Public/Bug/Display.html?id=71045
+  local $SIG{CHLD} = undef if $OBJ->{_TUWF}{http};
+
   my $start = [Time::HiRes::gettimeofday()] if $self->debug || $OBJ->{_TUWF}{log_slow_pages};
 
   $self->{_TUWF}{captures_pos} = [];