From b991b99f9a7cf875786c7e96970c7aff37c9a6e7 Mon Sep 17 00:00:00 2001
From: Tomer Chachamu <tomer.chachamu@gmail.com>
Date: Wed, 2 May 2012 15:30:38 +0200
Subject: Fix rpc:call/5 for local calls with a finite Timeout

-module(rpc_example).
-export([f/0, should_return_ok/0]).

should_return_ok() ->
    {badrpc, timeout} = rpc:call(node(), ?MODULE, f, [], 5000),
    ok.

f() ->
    Ref = make_ref(),
    receive
        Ref -> ok
    end.
---
 lib/kernel/src/rpc.erl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/kernel/src/rpc.erl b/lib/kernel/src/rpc.erl
index e214ffa404..a3fc57a124 100644
--- a/lib/kernel/src/rpc.erl
+++ b/lib/kernel/src/rpc.erl
@@ -286,7 +286,7 @@ call(N,M,F,A) ->
       Reason :: term(),
       Timeout :: timeout().
 
-call(N,M,F,A,_Timeout) when node() =:= N ->  %% Optimize local call
+call(N,M,F,A,infinity) when node() =:= N ->  %% Optimize local call
     local_call(M,F,A);
 call(N,M,F,A,infinity) ->
     do_call(N, {call,M,F,A,group_leader()}, infinity);
-- 
cgit v1.2.3