From cab3f90898beac09f77d75219800f84b52f16c05 Mon Sep 17 00:00:00 2001
From: Simon MacMullen <simon@rabbitmq.com>
Date: Thu, 13 Nov 2014 09:22:02 +0000
Subject: R13B03 compatibility.

---
 src/file_handle_cache_stats.erl | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/src/file_handle_cache_stats.erl b/src/file_handle_cache_stats.erl
index b1fbb3f4..832f0b3d 100644
--- a/src/file_handle_cache_stats.erl
+++ b/src/file_handle_cache_stats.erl
@@ -32,14 +32,14 @@ init() ->
                                                Counter <- [count]].
 
 update(Op, Bytes, Thunk) ->
-    {Time, Res} = timer:tc(Thunk),
+    {Time, Res} = timer_tc(Thunk),
     ets:update_counter(?TABLE, {Op, count}, 1),
     ets:update_counter(?TABLE, {Op, bytes}, Bytes),
     ets:update_counter(?TABLE, {Op, time}, Time),
     Res.
 
 update(Op, Thunk) ->
-    {Time, Res} = timer:tc(Thunk),
+    {Time, Res} = timer_tc(Thunk),
     ets:update_counter(?TABLE, {Op, count}, 1),
     ets:update_counter(?TABLE, {Op, time}, Time),
     Res.
@@ -50,3 +50,11 @@ update(Op) ->
 
 get() ->
     lists:sort(ets:tab2list(?TABLE)).
+
+%% TODO timer:tc/1 was introduced in R14B03; use that function once we
+%% require that version.
+timer_tc(Thunk) ->
+    T1 = os:timestamp(),
+    Res = Thunk(),
+    T2 = os:timestamp(),
+    {timer:now_diff(T2, T1), Res}.
-- 
cgit v1.2.1