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.

1 files changed, 1 insertions, 1 deletions

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);