commit b6983df867208bb31e0de95bdfe124b0c51826ae
author Jim King <jim.king@simplivity.com> Wed Jul 06 21:50:23 2016 -0400
committer Jens Geyer <jensg@apache.org> Sun Jul 17 18:00:24 2016 +0200
tree 78ac167ae238e4bc85131b5782ecc6e079c26002
parent 4300b72b2dce36f1cccb71bcabe8f6c42e888ab3

THRIFT-3848: Perl ForkingServer must ignore SIGCHLD to avoid infinite loop
Client: Perl
Patch: Jim King <jim.king@simplivity.com>

This closes #1040

lib/perl/lib/Thrift/Server.pm

diff --git a/lib/perl/lib/Thrift/Server.pm b/lib/perl/lib/Thrift/Server.pm
index 97e6620..ac1e17d 100644
--- a/lib/perl/lib/Thrift/Server.pm
+++ b/lib/perl/lib/Thrift/Server.pm
@@ -125,7 +125,6 @@
     }
 }
 
-
 #
 # SimpleServer from the Server base class that handles one connection at a time
 #
@@ -191,6 +190,9 @@
 {
     my $self = shift;
 
+    # THRIFT-3848: without ignoring SIGCHLD, perl ForkingServer goes into a tight loop
+    $SIG{CHLD} = 'IGNORE';
+
     $self->{serverTransport}->listen();
     while (1)
     {