X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fgetter%2Fhttp_getter_wget.ml;fp=helm%2Fsoftware%2Fcomponents%2Fgetter%2Fhttp_getter_wget.ml;h=90e60b4048dce55cfe76094f4a2877b41bc87727;hb=eccaad18aa815bb3334e205b97c220f675e6d5a5;hp=2052e7bd50953cc32879232f569ce4a1107f8ead;hpb=05482479b8f4cf4c86ff91e43a913b47aa270cc6;p=helm.git

diff --git a/helm/software/components/getter/http_getter_wget.ml b/helm/software/components/getter/http_getter_wget.ml
index 2052e7bd5..90e60b404 100644
--- a/helm/software/components/getter/http_getter_wget.ml
+++ b/helm/software/components/getter/http_getter_wget.ml
@@ -66,5 +66,7 @@ let exists url =
   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 "An object has metadata but no XML. This is an internal bug of ocaml-http: Zack, please fix it!"; assert false