PR#4668: ocamldoc: fix name clashes when generating html files

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@9640 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

ocamldoc/odoc_html.ml

@@ -53,8 +53,17 @@ module Naming =
 
     (** Return the two html files names for the given module or class name.*)
     let html_files name =
-      let html_file = name^".html" in
-      let html_frame_file = name^"-frame.html" in
+      let qual =
+        try
+          let i = String.rindex name '.' in
+          match name.[i + 1] with
+          | 'A'..'Z' -> ""
+          | _ -> "-c"
+        with Not_found -> ""
+      in
+      let prefix = name^qual in
+      let html_file = prefix^".html" in
+      let html_frame_file = prefix^"-frame.html" in
       (html_file, html_frame_file)
 
     (** Return the target for the given prefix and simple name. *)