[Unison-hackers] patches for 2.10.2 and 2.12.0

[Jerome Vouillon]

On Sun, May 22, 2005 at 04:54:53PM -0400, Zvezdan Petkovic wrote:
> Here are patches for 2.12.0 in my port.
> Jerome, is that all I need?

You need to add the following one (all platforms).

-- Jerome
-------------- next part --------------
--- osx.ml~     2004-11-25 22:17:47.000000000 +0100
+++ osx.ml      2005-03-21 15:39:31.365044049 +0100
@@ -386,9 +386,10 @@
 let openRessIn fspath path =
   Util.convertUnixErrorsToTransient "reading ressource fork" (fun () ->
     try
-      open_in_gen
-        [Open_rdonly; Open_binary] 0o444
-        (Fspath.concatToString fspath (ressPath path))
+      Unix.in_channel_of_descr
+        (Unix.openfile
+           (Fspath.concatToString fspath (ressPath path))
+           [Unix.O_RDONLY] 0o444)
     with Unix.Unix_error (Unix.ENOTDIR, _, _) ->
       let (doublePath, inch, entries) = openDouble fspath path in
       try