28 lines
966 B
Plaintext
28 lines
966 B
Plaintext
$OpenBSD: patch-props_ml,v 1.1 2005/05/30 19:27:45 sturm Exp $
|
|
Post-release developer patch.
|
|
o Fix in property setting. In particular, set properties in the right order.
|
|
See http://lists.seas.upenn.edu/pipermail/unison-hackers/2005-May/000090.html
|
|
--- props.ml.orig Mon Sep 6 15:15:46 2004
|
|
+++ props.ml Fri May 27 16:28:48 2005
|
|
@@ -421,7 +421,7 @@ let syncedPartsToString t = match t with
|
|
|
|
let iCanWrite p =
|
|
try
|
|
- Unix.access p [Unix.R_OK];
|
|
+ Unix.access p [Unix.W_OK];
|
|
true
|
|
with
|
|
Unix.Unix_error _ -> false
|
|
@@ -615,9 +615,9 @@ let get stats infos =
|
|
let set fspath path kind p =
|
|
Uid.set fspath path kind p.uid;
|
|
Gid.set fspath path kind p.gid;
|
|
- Perm.set fspath path kind p.perm;
|
|
+ TypeCreator.set fspath path kind p.typeCreator;
|
|
Time.set fspath path kind p.time;
|
|
- TypeCreator.set fspath path kind p.typeCreator
|
|
+ Perm.set fspath path kind p.perm
|
|
|
|
let init someHostIsRunningWindows =
|
|
Perm.init someHostIsRunningWindows;
|