anchor.diff:  %%                                   {stop, Reason, State}
   %% @end
   %%--------------------------------------------------------------------
  +handle_info({'EXIT', Pid, Reason}, #state{diag_pid = Pid} = State) ->
  +    State0 = State#state{diag_pid = undefined},
  +
  +    case Reason of
  +        normal ->
  +            {noreply, State0#state{last_tstamp = misc:time_to_epoch_ms_int(now())}};
  +        _ ->
  +            ?log_warning("Diag process died unexpectedly: ~p", [Reason]),
  +            {noreply, State0}
  +    end;
   handle_info(_Info, State) ->
       {noreply, State}.
   
  
positive.code: 
  -define(MIN_LOG_INTERVAL, 5000).
  
  -record(state, {last_tstamp}).
  
  %%%===================================================================
  %%% API
  
negative.code: %% @end
  %%--------------------------------------------------------------------
  init([]) ->
      erlang:process_flag(trap_exit, true),
      {ok, #state{last_tstamp = misc:time_to_epoch_ms_int(now()) - ?MIN_LOG_INTERVAL}}.
  
  %%--------------------------------------------------------------------
  