diff options
author | Gabriel Scherer <gabriel.scherer@gmail.com> | 2014-12-21 11:46:14 +0000 |
---|---|---|
committer | Gabriel Scherer <gabriel.scherer@gmail.com> | 2014-12-21 11:46:14 +0000 |
commit | f15f4f3ed83532c1571014bb35aa7cc2fd424686 (patch) | |
tree | 6c5e13cfa5c79b1ad64a61c704731ee496f19046 /ocamldoc/odoc_man.ml | |
parent | a533618a7a7ba017905240a19db99a417573a83c (diff) | |
download | ocaml-f15f4f3ed83532c1571014bb35aa7cc2fd424686.tar.gz |
PR6695: Make sure the compiler only uses ASCII string functions.
This should cover all places involving filenames in the compiler.
There are a few more paths still using Latin-1 in other ways,
e.g. in ocamldoc.
From: Peter Zotov <whitequark@whitequark.org>
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@15727 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'ocamldoc/odoc_man.ml')
-rw-r--r-- | ocamldoc/odoc_man.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ocamldoc/odoc_man.ml b/ocamldoc/odoc_man.ml index 13733ba8e1..effe6c83b3 100644 --- a/ocamldoc/odoc_man.ml +++ b/ocamldoc/odoc_man.ml @@ -340,7 +340,7 @@ class man = method man_of_custom_text b s t = () method man_of_Target b ~target ~code = - if String.lowercase target = "man" then bs b code else () + if String.lowercase_ascii target = "man" then bs b code else () (** Print groff string to display code. *) method man_of_code b s = self#man_of_text b [ Code s ] |