CA-289145: close socket if error occurs when using lwt connect

Signed-off-by: Yang Qian <yang.qian@citrix.com>
xapi-project · May 21, 2018 · 9801af1 · 9801af1
1 parent d48fe35
commit 9801af1
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/lwt/protocol_lwt.ml b/lwt/protocol_lwt.ml
@@ -47,7 +47,9 @@ module M = struct
           | Unix.Unix_error((Unix.ECONNREFUSED | Unix.ECONNABORTED | Unix.ENOENT), _, _) ->
             Lwt_unix.sleep 5. >>= fun () ->
             loop ()
-          | e -> fail e
+          | e ->
+            Lwt_unix.close fd;
+            fail e
         ) in
     loop ()