Merge pull request #116 from simonjbeaumont/cp-15132

CP-15132/CA-204487: daemonize: Wait for parent to exit before writing PID file

Author: simonjbeaumont

lib/xcp_service.ml

@@ -552,6 +552,8 @@ let daemonize () =
 		| 0 ->
 			Unix.chdir "/";
 			mkdir_rec (Filename.dirname !pidfile) 0o755;
+			(* wait for parent to exit before writing pidfile *)
+			while not (have_daemonized ()) do Thread.delay 0.1 done;
 			pidfile_write !pidfile;
 			Unix.close Unix.stdin;
 			Unix.close Unix.stdout;