fixe #24 Change O_APPEND to O_TRUNC for PID file

dinosaure · hhugo · commit 7a71aef33904 · 2014-04-16T18:01:15.000+02:00
diff --git a/src/server/ocsigen_server.ml b/src/server/ocsigen_server.ml
@@ -1401,7 +1401,7 @@ let start_server () = try
         let f =
           Unix.openfile
             p
-            [Unix.O_WRONLY; Unix.O_CREAT; Unix.O_APPEND] 0o640 in
+            [Unix.O_WRONLY; Unix.O_CREAT; Unix.O_TRUNC] 0o640 in
         ignore (Unix.write f spid 0 len);
         Unix.close f
   in

Original file line number	Diff line number	Diff line change
`@@ -1401,7 +1401,7 @@ let start_server () = try`
`1401`	`1401`	`let f =`
`1402`	`1402`	`Unix.openfile`
`1403`	`1403`	`p`
`1404`		`- [Unix.O_WRONLY; Unix.O_CREAT; Unix.O_APPEND] 0o640 in`
	`1404`	`+ [Unix.O_WRONLY; Unix.O_CREAT; Unix.O_TRUNC] 0o640 in`
`1405`	`1405`	`ignore (Unix.write f spid 0 len);`
`1406`	`1406`	`Unix.close f`
`1407`	`1407`	`in`