cache lifetime should be converted in microseconds

diff --git a/src/cache_tab.erl b/src/cache_tab.erl
index 75ef6159a1d450cc6969725901a788074c86e42e..b05e78b0e617eb166d365628601f34655b2a95d3 100644 (file)
--- 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,