554
554
get_supervisor_module1(SupPid) ->
555
555
{status, _Pid, {module, _Mod},
556
556
[_PDict, _SysState, _Parent, _Dbg, Misc]} = sys:get_status(SupPid),
557
[_Name, State, _Type, _Time] = Misc,
559
[_Name, State1, _Type, _Time] ->
561
[_Header, _Data, {data, [{"State", State2}]}] ->
558
564
%% Cannot use #supervisor_state{module = Module} = State.
559
565
{ok, element(#supervisor_state.module, State)}.