Handle SIGPIPES

1 files changed, 4 insertions, 0 deletions

diff --git a/tgserver b/tgserver
index 9511b94..b281e40 100755
--- a/tgserver
+++ b/tgserver
@@ -116,6 +116,10 @@ sub reply {
 sub pipe_send {
     my ($content, @cmd) = @_;
 
+    $SIG{PIPE} = sub {
+        $logger->debug("SIGPIPE received (@_), ignoring\n");
+    };
+
     use IPC::Open2 qw<open2>;
     my $pid = open2(my $progr, my $progw, @cmd);