anchor.diff:  	    verify_none ->
   		{verify_none, false, ca_cert_default(verify_none, Role)};
   	    verify_peer ->
  -		{verify_peer, proplists:get_value(fail_if_no_peer_cert,
  -						  Opts, false),
  -		 ca_cert_default(verify_peer, Role)};
  +		{verify_peer, UserFailIfNoPeerCert, ca_cert_default(verify_peer, Role)};
   	    Value ->
   		throw({error, {eoptions, {verify, Value}}})
   	end,   
  
positive.code:       versions   = handle_option(versions, Opts, []),
        verify     = validate_option(verify, Verify),
        verify_fun = handle_option(verify_fun, Opts, VerifyFun),
        fail_if_no_peer_cert = validate_option(fail_if_no_peer_cert, 
  					     FailIfNoPeerCert),
        verify_client_once =  handle_option(verify_client_once, Opts, false),
        validate_extensions_fun = handle_option(validate_extensions_fun, Opts, undefined),
        depth      = handle_option(depth,  Opts, 1),
  
negative.code:                                                    Version == tlsv1; 
                                                     Version == sslv3 ->
      validate_versions(Rest, Versions);					   
  validate_versions([Ver| _], Versions) ->
      throw({error, {eoptions, {Ver, {versions, Versions}}}}).
  
  validate_inet_option(mode, Value)
  