anchor.diff:  		ExpectedSize ->
   			commit2(RadiusFsm, AccessRequest, StateData);
   		_ ->
  -			EapPacket = #eap_packet{code = failure,
  -					type = ?PWD, identifier = EapID},
  +			EapPacket = #eap_packet{code = failure, identifier = EapID},
   			send_response(EapPacket, ?AccessReject,
   					RadiusID, [], RequestAuthenticator, Secret, RadiusFsm),
   			{stop, {shutdown, SessionID}, StateData}
  
positive.code: 		<<ScalarP_Valid:256>> when 1 < ScalarP_Valid, ScalarP_Valid < ?R ->
  			commit4(RadiusFsm, AccessRequest, StateData);
  		_ScalarP_Out_of_Range ->
  			EapPacket = #eap_packet{code = failure,
  					type = ?PWD, identifier = EapID},
  			send_response(EapPacket, ?AccessReject,
  					RadiusID, [], RequestAuthenticator, Secret, RadiusFsm),
  			{stop, {shutdown, SessionID}, StateData}
  
negative.code: 		eap_id = EapID, session_id = SessionID} = StateData) ->
  	case {ElementP, ScalarP} of
  		{ElementS, ScalarS} ->
  			EapPacket = #eap_packet{code = failure, identifier = EapID},
  			send_response(EapPacket, ?AccessReject,
  					RadiusID, [], RequestAuthenticator, Secret, RadiusFsm),
  			{stop, {shutdown, SessionID}, StateData};
  