anchor.diff:               end}
       end.
   
  -read_chunk_length(Socket) ->
  +read_chunk_length(Socket, MaybeLastChunk) ->
       mochiweb_socket:setopts(Socket, [{packet, line}]),
       case mochiweb_socket:recv(Socket, 0, ?IDLE_TIMEOUT) of
           {ok, Header} ->
  
positive.code:                        end,
              {Hex, _Rest} = lists:splitwith(Splitter, binary_to_list(Header)),
              case Hex of
                  [] -> 0;
                  _ -> erlang:list_to_integer(Hex, 16)
              end;
          _ ->
              exit(normal)
  
negative.code:     end.
      
  recv_chunked_body(Socket, MaxHunk) ->
      case read_chunk_length(Socket, false) of
          0 -> {<<>>, done};
          ChunkLength -> recv_chunked_body(Socket,MaxHunk,ChunkLength)
      end.
  