anchor.diff:                      QVal = case Val of
                                  "1" ->
                                      1;
  -				"0" ->
  -				   0;
  +                               "0" ->
  +                                   0;
                                  [$.|_] ->
                                      %% handle strange FeedBurner Accept
  -                                   list_to_float([$0|Val]); 
  +                                   list_to_float([$0|Val]);
                                  _ -> list_to_float(Val)
                              end,
                       {QVal, Type, Rest ++ Acc};
  
positive.code:             % doing this a little more work than needed in
              % order to be easily insensitive but preserving
              case lists:member(LAcc, LChoices) of
                  true -> 
                      hd([X || X <- Choices,
                               string:to_lower(X) =:= LAcc]);
                  false -> do_choose(Default, DefaultOkay, AnyOkay,
  
negative.code: -export([now_diff_milliseconds/2]).
  -export([media_type_to_detail/1,
           quoted_string/1,
           split_quoted_strings/1]).
  
  -ifdef(TEST).
  -ifdef(EQC).
  -include_lib("eqc/include/eqc.hrl").
  -endif.
  -include_lib("eunit/include/eunit.hrl").
  -export([accept_header_to_media_types/1]).
  -endif.
  
  convert_request_date(Date) ->
      try
          case httpd_util:convert_request_date(Date) of
              ReqDate -> ReqDate
          end
  