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

[jhf at projects.linpro.no]

Author: jhf
Date: 2008-01-23 18:21:18 +0100 (Wed, 23 Jan 2008)
New Revision: 234

Modified:
   trunk/tools/cybar/cybar.ml
Log:
Only chop of last . after converting float to string, leave the last digit in place.

Modified: trunk/tools/cybar/cybar.ml
===================================================================
--- trunk/tools/cybar/cybar.ml	2008-01-23 17:00:21 UTC (rev 233)
+++ trunk/tools/cybar/cybar.ml	2008-01-23 17:21:18 UTC (rev 234)
@@ -1265,7 +1265,7 @@
   let stamp = 
     let now = Unix.time () in
     let stamp = string_of_float now in
-      String.sub ~pos:0 ~len:((String.length stamp)-2) stamp (* Chop of last . *)
+      String.sub ~pos:0 ~len:((String.length stamp)-1) stamp (* Chop of last . *)
   in
   let rename_backup_of_user deleted_user =
     let src = find_user_backup_dir deleted_user in