From 901fa87c3f0a93dfdf5817257f53deab72b213bf Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Wed, 13 Nov 2019 23:47:44 -0600
Subject: [PATCH] fix: compat on unix.socket

---
 src/SimpleHTTPServer.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/SimpleHTTPServer.ml b/src/SimpleHTTPServer.ml
index e2306b1b..c8b22638 100644
--- a/src/SimpleHTTPServer.ml
+++ b/src/SimpleHTTPServer.ml
@@ -221,7 +221,7 @@ let run (self:t) : (unit,_) result =
     if self.masksigpipe then (
       ignore (Unix.sigprocmask Unix.SIG_BLOCK [Sys.sigpipe] : _ list);
     );
-    let sock = Unix.socket ~cloexec:true PF_INET Unix.SOCK_STREAM 0 in
+    let sock = Unix.socket PF_INET Unix.SOCK_STREAM 0 in
     let inet_addr = Unix.inet_addr_of_string self.addr in
     Unix.bind sock (Unix.ADDR_INET (inet_addr, self.port));
     Unix.listen sock 10;