ocaml-gettext/0001-gettextCompat-Use-Pervasives.format_of_string-instea.patch
2014-07-15 17:05:12 +01:00

27 lines
734 B
Diff

From 9cc38ee61f2ae03e79a2ee7f72719783c29c6eac Mon Sep 17 00:00:00 2001
From: "Richard W.M. Jones" <rjones@redhat.com>
Date: Tue, 15 Jul 2014 15:58:49 +0000
Subject: [PATCH] gettextCompat: Use Pervasives.format_of_string instead of
Obj.magic.
---
libgettext-ocaml/gettextCompat.ml | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/libgettext-ocaml/gettextCompat.ml b/libgettext-ocaml/gettextCompat.ml
index 1a8ac44..08f00d5 100644
--- a/libgettext-ocaml/gettextCompat.ml
+++ b/libgettext-ocaml/gettextCompat.ml
@@ -25,7 +25,7 @@ open GettextCategory;;
open GettextModules;;
let unsafe_format_of_string fmt str =
- if true then
+ if false then
Obj.magic str
else
format_of_string fmt
--
2.0.1