let sigchld_handle s =
  let pid,_=Unix.waitpid [Unix.WNOHANG] 0 in
    try
      let fqp_in,fd_out = Hashtbl.find pidmap pid in
        begin
          reopenentry fqp_in
        end
    with _ -> ()