try
ignore (Http_user_agent.head url);
true
- with Http_user_agent.Http_error _ -> false
+ with
+ Http_user_agent.Http_error _ -> false
+ | Not_found -> prerr_endline (Printf.sprintf "An object %s has metadata but no XML. This is an internal bug of ocaml-http: Zack, please fix it!"
+ url); assert false