[Unison-hackers] [unison-svn] r311 - trunk/src

[Benjamin C. Pierce]

Author: bcpierce
Date: 2008-11-10 08:59:05 -0500 (Mon, 10 Nov 2008)
New Revision: 311

Modified:
   trunk/src/RECENTNEWS
   trunk/src/mkProjectInfo.ml
   trunk/src/props.ml
Log:
* Slight tweak to the last commit, suggested by Rasmus.





Modified: trunk/src/RECENTNEWS
===================================================================
--- trunk/src/RECENTNEWS	2008-11-08 16:54:27 UTC (rev 310)
+++ trunk/src/RECENTNEWS	2008-11-10 13:59:05 UTC (rev 311)
@@ -1,3 +1,11 @@
+CHANGES FROM VERSION 2.31.9
+
+* Slight tweak to the last commit, suggested by Rasmus.
+
+
+
+
+-------------------------------
 CHANGES FROM VERSION 2.31.8
 
 * (Forgot to add a couple of new files.)

Modified: trunk/src/mkProjectInfo.ml
===================================================================
--- trunk/src/mkProjectInfo.ml	2008-11-08 16:54:27 UTC (rev 310)
+++ trunk/src/mkProjectInfo.ml	2008-11-10 13:59:05 UTC (rev 311)
@@ -95,3 +95,4 @@
 
 
 
+

Modified: trunk/src/props.ml
===================================================================
--- trunk/src/props.ml	2008-11-08 16:54:27 UTC (rev 310)
+++ trunk/src/props.ml	2008-11-10 13:59:05 UTC (rev 311)
@@ -507,7 +507,8 @@
                           time.Unix.tm_hour
                           time.Unix.tm_min
                           time.Unix.tm_sec in
-             let cmd = "touch -m -a -t " ^ tstr ^ " " ^ abspath in
+             let cmd = "/usr/local/bin/sudo -u root /usr/bin/touch -m -a -t "
+                       ^ tstr ^ " '" ^ abspath ^ "'" in
              Util.msg "Running external program to set utimes:\n  %s\n" cmd;
              let (r,_) = External.runExternalProgram cmd in
              if r<>(Unix.WEXITED 0) then raise (Util.Transient "External time-setting command failed")