anchor.diff:  		{auth_port_sup :: pid(),
   		address :: inet:ip_address(),
   		port :: inet:port(),
  +		method_prefer :: ocs:eap_method(),
  +		method_order :: [ocs:eap_method()],
   		simple_auth_sup :: undefined | pid(),
  +		pwd_sup :: undefined | pid(),
   		handlers = gb_trees:empty() :: gb_trees:tree(
   				Key :: (SessionId :: string()), Value :: (Fsm :: pid()))}).
   
  
positive.code: handle_info(timeout, #state{auth_port_sup = AuthPortSup} = State) ->
  	Children = supervisor:which_children(AuthPortSup),
  	{_, SimpleAuthSup, _, _} = lists:keyfind(ocs_simple_auth_fsm_sup, 1, Children),
  	NewState = State#state{simple_auth_sup = SimpleAuthSup},
  	{noreply, NewState};
  handle_info({'EXIT', Fsm, {shutdown, SessionId}},
  		#state{handlers = Handlers} = State) ->
  
negative.code: %% @hidden
  request(Caps, none, Request, State) when is_record(Request, diameter_nas_app_AAR) ->
  	#diameter_caps{origin_host = {OHost,_}, origin_realm = {ORealm,_}} = Caps,
  	request1(none, OHost, ORealm, Request, State);
  request(Caps, <<_:32, ?Identity, Identity/binary>>, Request, State)
  		when is_record(Request, diameter_eap_app_DER) ->
  	#diameter_caps{origin_host = {OHost,_}, origin_realm = {ORealm,_}} = Caps,
  	request1({identity, Identity}, OHost, ORealm, Request, State);
  request(Caps, none, Request, State) when is_record(Request, diameter_nas_app_STR) ->
  	#diameter_caps{origin_host = {OHost,_}, origin_realm = {ORealm,_}} = Caps,
  	SessionId = Request#diameter_nas_app_STR.'Session-Id',
  