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:     {Data2,Services} = decode_string(Data1),
      {Data,Regexp} = decode_characters(Data2, utf8),
      Replacement = decode_domain(Data, Buffer),
      {Order,Preference,inet_db:tolower(Flags),inet_db:tolower(Services),
       Regexp,Replacement};
  %% ?S_OPT falls through to default
  decode_data(Data, _, ?S_TXT, _) ->
  