Unix.localtime should be gmtime for getting canonical utc time

Signed-off-by: MarcusG <marcusg@citrix.com>

diff --git a/log/log.ml b/log/log.ml
index a3435de53bca579aae9bb1e2339765ee60df27a7..5938ed3f3df1c88597f83eb56ecc4431cf1cf66a 100644 (file)
--- a/log/log.ml
+++ b/log/log.ml
@@ -202,7 +202,7 @@ let set t level = t.level <- level
 
 let gettimestring () =
        let time = Unix.gettimeofday () in
-       let tm = Unix.localtime time in
+       let tm = Unix.gmtime time in
         let msec = time -. (floor time) in
        sprintf "%d%.2d%.2d %.2d:%.2d:%.2d.%.3d|" (1900 + tm.Unix.tm_year)
                (tm.Unix.tm_mon + 1) tm.Unix.tm_mday