[Limacute-commit] r235 - trunk/tools/cybar

[jhf at projects.linpro.no]

Author: jhf
Date: 2008-01-23 18:32:31 +0100 (Wed, 23 Jan 2008)
New Revision: 235

Modified:
   trunk/tools/cybar/cybar.ml
Log:
Unix.tm_mon is from 0 to 11, even if tm_mday is from 1 to 31.

Modified: trunk/tools/cybar/cybar.ml
===================================================================
--- trunk/tools/cybar/cybar.ml	2008-01-23 17:21:18 UTC (rev 234)
+++ trunk/tools/cybar/cybar.ml	2008-01-23 17:32:31 UTC (rev 235)
@@ -2382,7 +2382,7 @@
                  let month = int_of_string (Str.matched_group 3 str) in
                  let day = int_of_string (Str.matched_group 4 str) in
                  let tm = {Unix.tm_year = year-1900
-                          ;Unix.tm_mon = month
+                          ;Unix.tm_mon = month-1
                           ;Unix.tm_mday = day
                           ;Unix.tm_hour = 0
                           ;Unix.tm_min = 0