anchor.diff:      {3, 1};
   protocol_version(sslv3) ->
       {3, 0};
  -protocol_version(sslv2) ->
  +protocol_version(sslv2) -> %% Backwards compatibility
       {2, 0};
   protocol_version({3, 2}) ->
       'tlsv1.1';
   protocol_version({3, 1}) ->
       tlsv1;
   protocol_version({3, 0}) ->
  -    sslv3;
  -protocol_version({2, 0}) ->
  -    sslv2.
  +    sslv3.
   %%--------------------------------------------------------------------
   %% Function: protocol_version(Version1, Version2) -> #protocol_version{}
   %%     Version1 = Version2 = #protocol_version{}
  
positive.code: %%--------------------------------------------------------------------
  supported_protocol_versions() ->
      Fun = fun(Version) ->
  		  protocol_version(Version)
  	  end,
      case application:get_env(ssl, protocol_version) of
  	undefined ->
  
negative.code: 	{ok, []} ->
  	    lists:map(Fun, ?DEFAULT_SUPPORTED_VERSIONS);
  	{ok, Vsns} when is_list(Vsns) ->
  	    Versions = lists:filter(fun is_acceptable_version/1, lists:map(Fun, Vsns)),
  	    supported_protocol_versions(Versions);
  	{ok, Vsn} ->
  	    Versions = lists:filter(fun is_acceptable_version/1, [Fun(Vsn)]),
  	    supported_protocol_versions(Versions)
      end.
  
  supported_protocol_versions([]) ->
      ?DEFAULT_SUPPORTED_VERSIONS;
  supported_protocol_versions([_|_] = Vsns) ->
      Vsns.
  
  %%--------------------------------------------------------------------
  %% Function: is_acceptable_version(Version) -> true | false
  