anchor.diff:      (1 =< L andalso L =< 15)
           orelse throw(?DECODE_ERROR),
       Value = binary_to_list(Data1),
  -    {Flags,to_lower(Tag),Value};
  +    {Flags,inet_db:tolower(Tag),Value};
   %% sofar unknown or non standard
   decode_data(Data, _, _, _) ->
       Data.
  
positive.code: %% RFC 2671: Extension Mechanisms for DNS (EDNS0)
  %% RFC 2782: A DNS RR for specifying the location of services (DNS SRV)
  %% RFC 2915: The Naming Authority Pointer (NAPTR) DNS Resource Rec
  
  -export([decode/1, encode/1]).
  
  
negative.code: 	    %% programming errors easier to locate.
  	    erlang:error(badarg, [Label,Name,N])
      end.
  
  %%
  %% Data field -> {binary(),NewCompressionTable}
  