blob: 6a1c197c06c604baddcaaae550a5ef6d0ab6e7c8 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
%% This tests that the race condition detection between whereis/register
%% is robust w.r.t. having the calls in separate functions.
-module(whereis_diff_functions1).
-export([start/2]).
continue(Fun) ->
case whereis(master) of
undefined ->
register(master, spawn(Fun));
_ -> ok
end.
start(AnAtom, Fun) ->
case whereis(AnAtom) of
undefined ->
Pid = spawn(Fun),
register(AnAtom, Pid);
_ ->
ok
end,
continue(Fun).
|