From fe114ffa8dc12eb22a1df5e801b66b93bdb3bd3c Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Fri, 10 Jul 2020 12:10:51 -0400
Subject: [PATCH] fix: be sure to block sigpipe in subthread

---
 src/unix/CCUnix.ml | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/unix/CCUnix.ml b/src/unix/CCUnix.ml
index be6fa6cf..62942fb9 100644
--- a/src/unix/CCUnix.ml
+++ b/src/unix/CCUnix.ml
@@ -101,6 +101,7 @@ let call_full_inner ?(bufsize=2048) ?(stdin=`Str "") ?(env=Unix.environment()) ~
        let t_out =
          Thread.create
            (fun oc ->
+              ignore (Thread.sigmask Unix.SIG_BLOCK [Sys.sigint;Sys.sigpipe]: _ list);
               out := read_all ~size:bufsize oc)
            oc in
        let err = read_all ~size:bufsize errc in