From a9b075f4f7ff0f7507fd7b9f1f8a3fad46f2db99 Mon Sep 17 00:00:00 2001 From: Sapan Bhatia Date: Tue, 24 Mar 2009 15:21:35 +0000 Subject: [PATCH 1/1] --- unixsocketwatcher.ml | 2 -- 1 file changed, 2 deletions(-) diff --git a/unixsocketwatcher.ml b/unixsocketwatcher.ml index f0e3f5a..517d7e0 100644 --- a/unixsocketwatcher.ml +++ b/unixsocketwatcher.ml @@ -36,7 +36,6 @@ let receive_event (listening_socket_spec:fname_and_fd) (_:fname_and_fd) = match mapping with |None -> logprint "Received unexpected socket event\n";() |Some (execpath, slice_name) -> - print "Execpath: %s\n" execpath; begin let child = fork () in if (child == 0) then @@ -44,7 +43,6 @@ let receive_event (listening_socket_spec:fname_and_fd) (_:fname_and_fd) = (* Child *) (* Close all fds except for the socket *) let fd = Obj.magic data_socket in - print "Fd: %d\n" fd; let _ = execv execpath [|execpath;slice_name;sprintf "%d" fd|] (*with Unix_error(num,str1,str2)->logprint "Error %d: %s (%s)" (Obj.magic num) str1 str2;raise (Unix_error(num,str1,str2))*) -- 2.43.0