From 556892aebf0dcc33d8d921ca321bf1ed62b98f11 Mon Sep 17 00:00:00 2001
From: Evgeniy Khramtsov <ekhramtsov@process-one.net>
Date: Wed, 8 Sep 2010 02:33:49 +1000
Subject: [PATCH] cache lifetime should be converted in microseconds

---
 src/cache_tab.erl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/cache_tab.erl b/src/cache_tab.erl
index 75ef6159a..b05e78b0e 100644
--- a/src/cache_tab.erl
+++ b/src/cache_tab.erl
@@ -335,11 +335,11 @@ do_setopts(#state{procs_num = N} = State, Opts) ->
     LifeTime = case {proplists:get_value(life_time, Opts),
 		     State#state.life_time} of
 		   {LT, _} when is_integer(LT), LT > 0 ->
-		       LT*1000;
+		       LT*1000*1000;
 		   {unlimited, _} ->
 		       unlimited;
 		   {_, undefined} ->
-		       ?LIFETIME*1000;
+		       ?LIFETIME*1000*1000;
 		   {_, LT} ->
 		       LT
 	       end,