anchor.diff:  		       "valid names for this certificate (~p)",
   		       [AltName, ValidNames]),
   	    true
  -    end.
  +    end;
  +is_valid_ssl_certname(undefined, Subject, true) ->
  +    logger:log(debug, "Transport layer: Rejecting connection with subjectAltName/CN ~p since list of valid "
  +	       "names is undefined", [Subject]),
  +    false;
  +is_valid_ssl_certname(undefined, Subject, false) ->
  +    logger:log(debug, "Transport layer: Warning: subjectAltName/CN ~p not matched against list of"
  +	       "valid names, since list is undefined", [Subject]),
  +    true.
   
   get_ssl_socket_altname({rndSequence, AttrList}) ->
       %% XXX commonName is not always set to the FQDN. Find a better (more correct)
  
positive.code: %%           of names we expect.
  %% Returns : true | false
  %%--------------------------------------------------------------------
  is_valid_ssl_certname(ValidNames, Subject, Reject) when Reject == true; Reject == false ->
      {ok, AltName} = get_ssl_socket_altname(Subject),
      Matches = util:casegrep(AltName, ValidNames),
      case {Matches, Reject} of
  	{true, _Reject} ->
  	    logger:log(debug, "TCP connection: Verified that subjectAltName/CN (~p) is in list of "
  		       "valid names for this certificate (~p)", [AltName, ValidNames]),
  	    true;
  	{false, true} ->
  
negative.code: %% Returns : any (ignored by gen_server)
  %%--------------------------------------------------------------------
  terminate(normal, _State) ->
      normal;
  terminate(Reason, _State) ->
      logger:log(error, "TCP connection: Terminating for some other reason than 'normal' : ~n~p",
  	       [Reason]),
      Reason.
  
  %%--------------------------------------------------------------------
  %% Function: code_change(OldVsn, State, Extra)
  