diff options
| -rw-r--r-- | src/supervisor2.erl | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/supervisor2.erl b/src/supervisor2.erl index 75c4bc1119..edd43ec002 100644 --- a/src/supervisor2.erl +++ b/src/supervisor2.erl @@ -715,13 +715,13 @@ monitor_child(Pid) -> receive %% If the child dies before the unlik we must empty %% the mail-box of the 'EXIT'-message and the 'DOWN'-message. - {'EXIT', Pid, Reason} -> - case Reason of - normal -> ok; - _ -> receive - {'DOWN', _, process, Pid, _} -> - {error, Reason} - end + {'EXIT', Pid, Reason} -> + receive + {'DOWN', _, process, Pid, _} -> + case Reason of + normal -> ok; + _ -> {error, Reason} + end end after 0 -> %% If a naughty child did unlink and the child dies before |