anchor.diff:  
   %%--------------------------------------------------------------------
   %% Function: siplookup_naptr/1
  -%% Description: Take a list of sorted NAPTR records and try to turn
  -%%              them into SRV records.
  -%% Returns: SRVList |
  -%%          nomatch
  +%% Descrip.: Take a list of sorted NAPTR records and try to turn
  +%%           them into SRV records.
  +%% Returns : SRVList |
  +%%           nomatch
   %%--------------------------------------------------------------------
   naptr_to_srvlist(Domain, In) ->
       naptr_to_srvlist2(Domain, In, []).
   
   naptr_to_srvlist2(Domain, [], Res) ->
  -    logger:log(debug, "dns resolver: Domain ~s NAPTR lookup result : ~p", [Domain, Res]),
  +    logger:log(debug, "dns resolver: Domain ~p NAPTR (+SRV) lookup result :~n~p",
  +	       [Domain, debugfriendly_srventry(Res)]),
       Res;
   naptr_to_srvlist2(Domain, [H | Rest], Res) when record(H, naptrrecord) ->
       Proto = case H#naptrrecord.services of
  
positive.code:     Sorted = lists:sort(fun sortsrv/2, This),
      naptr_to_srvlist2(Domain, Rest, lists:flatten([Res, Sorted])).
  
  
  %%--------------------------------------------------------------------
  %% Function: combine_srvresults/1
  %% Description: Walk through a list of srventry records or {error, R}
  %%              tuples and turn the srventry records into
  %%              {Proto, Host, Port} tuples.
  %% Returns: ProtoHostPortList
  %%--------------------------------------------------------------------
  combine_srvresults(List) ->
      combine_srvresults(List, [], []).
  
  combine_srvresults([], [], Errors) ->
      Errors;
  
negative.code: -include_lib("kernel/src/inet_dns.hrl").
  
  %% For debugging
  %%-compile(export_all).
  
  %% These records is entirely internal to this module
  -record(srventry, {proto, dnsrrdata}).
  