commit 6709bacae2bb0608442ed8908d0b1d0b1141ab34
author Adam Kocoloski <adam@cloudant.com> Sat Oct 23 12:35:12 2010 -0400
committer Adam Kocoloski <adam@cloudant.com> Sat Oct 23 12:35:12 2010 -0400
tree 67ebb111c9f8036f1f31ea13340089ea49243586
parent 7530b5c3dcbfa83b67a2d9148c0e21fecd11d399

b25b5b was sloppy, erlang:send_after/3 does not wrap w/ ok

src/rexi_utils.erl

diff --git a/src/rexi_utils.erl b/src/rexi_utils.erl
index 1e8820e..3b6102d 100644
--- a/src/rexi_utils.erl
+++ b/src/rexi_utils.erl
@@ -9,11 +9,11 @@
     process_mailbox(Refs, Keypos, Fun, Acc0, nil, PerMsgTO);
 recv(Refs, Keypos, Fun, Acc0, GlobalTimeout, PerMsgTO) ->
     TimeoutRef = erlang:make_ref(),
-    {ok, TRef} = erlang:send_after(GlobalTimeout, self(), {timeout, TimeoutRef}),
+    TRef = erlang:send_after(GlobalTimeout, self(), {timeout, TimeoutRef}),
     try
         process_mailbox(Refs, Keypos, Fun, Acc0, TimeoutRef, PerMsgTO)
     after
-        timer:cancel(TRef)
+        erlang:cancel_timer(TRef)
     end.
 
 process_mailbox(RefList, Keypos, Fun, Acc0, TimeoutRef, PerMsgTO) ->