anchor.diff:  		radius_fsm :: pid(),
   		radius_id :: byte(),
   		req_auth :: [byte()],
  -		mtu :: pos_integer(),
   		ssl_socket :: ssl:sslsocket(),
   		socket_options :: ssl:options(),
  +		max_size :: pos_integer(),
   		rx_length :: pos_integer(),
   		rx_buf = [] :: iolist(),
   		tx_buf = [] :: iolist(),
  
positive.code: 		rx_length = RxLength, rx_buf = RxBuf} = StateData) ->
  	EapMessages = radius_attributes:get_all(?EAPMessage, Attributes),
  	EapMessage = iolist_to_binary(EapMessages),
  	NewStateData = case radius_attributes:find(?FramedMtu,  Attributes) of
  		{ok, MTU} ->
  			StateData#statedata{radius_fsm = RadiusFsm,
  					radius_id = RadiusID, mtu = MTU};
  		{error, not_found} ->
  			StateData#statedata{radius_fsm = RadiusFsm, radius_id = RadiusID}
  	end,
  	try
  		#eap_packet{code = response, type = ?TTLS, identifier = EapID,
  
negative.code: aaa({eap_ttls, _SslPid, Data}, #statedata{tx_buf = TxBuf,
  		radius_fsm = RadiusFsm, radius_id = RadiusID,
  		req_auth = RequestAuthenticator, secret = Secret,
  		eap_id = EapID, max_size = MaxSize} = StateData) ->
  	MaxData = MaxSize - 10,
  	NewTxBuf = [TxBuf, Data],
  	case iolist_size(NewTxBuf) of
  		Size when Size >= MaxData ->
  			<<Chunk:MaxData/binary, Rest/binary>> = iolist_to_binary(NewTxBuf),
  			EapTtls = #eap_ttls{more = true, data = Chunk},
  			EapData = ocs_eap_codec:eap_ttls(EapTtls),
  			EapPacket = #eap_packet{code = request, type = ?TTLS,
  					identifier = EapID, data = EapData},
  