Distinguish orderly exit of the supervised process

saleyn · Mar 8, 2017 · d241886 · d241886
1 parent aef07f1
commit d241886
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/exec.erl b/src/exec.erl
@@ -880,6 +880,10 @@ ospid_loop({Pid, OsPid, Parent, StdOut, StdErr, IsMon, Debug} = State) ->
         0 -> notify_and_exit(IsMon, Pid, OsPid, normal);
         _ -> notify_and_exit(IsMon, Pid, OsPid, {exit_status, Status})
         end;
+    {'EXIT', Pid, Reason} when Reason =:= normal; Reason =:= shutdown ->
+        % orderly exit
+        debug(Debug, "~w ~w got ~w exit from linked ~w\n", [self(), OsPid, Reason, Pid]),
+        exit(Reason);
     {'EXIT', Pid, Reason} ->
         % Pid died
         debug(Debug, "~w ~w got exit from linked ~w: ~p\n", [self(), OsPid, Pid, Reason]),