CA-38105: remove a unix domain socket leak in an error path.

Signed-off-by: David Scott <dave.scott@eu.citrix.com>

diff --git a/forking_executioner/child.ml b/forking_executioner/child.ml
index 1806698f32a7ac7ee8ee1a1fd1d2d5ffc41e92ee..7413b74b52629aa57810a4b176c3eb15f314b839 100644 (file)
--- a/forking_executioner/child.ml
+++ b/forking_executioner/child.ml
@@ -163,5 +163,6 @@ let run state comms_sock fd_sock fd_sock_path =
     | e -> 
        debug "Caught unexpected exception: %s" (Printexc.to_string e);
        write_log ();
+       Unixext.unlink_safe fd_sock_path;
        exit 1