anchor.diff:      receive
   	{server, Port} ->
   	    {ok, Sock} = gen_tcp:connect(Host, Port,
  -					       [binary,{packet,0}]),
  +					       [binary,{packet,0},
  +						{active,false}]),
   	    Data = Send(Sock),
   	    ok = gen_tcp:close(Sock),
   	    receive
  
positive.code: 
  sendfile_server(ClientPid, Orig) ->
      {ok, LSock} = gen_tcp:listen(0, [binary, {packet, 0},
  					   {active, false},
  					   {reuseaddr, true}]),
      {ok, Port} = inet:port(LSock),
      ClientPid ! {server, Port},
      {ok, Sock} = gen_tcp:accept(LSock),
      {ok, Bin} = sendfile_do_recv(Sock, Orig),
      ok = gen_tcp:close(Sock),
      ClientPid ! {ok, Bin}.
  
  -define(SENDFILE_TIMEOUT, 10000).
  %% f(),{ok, S} = gen_tcp:connect("localhost",7890,[binary]),gen_tcp:sendfile("/ldisk/lukas/otp/sendfiletest.dat",S).
  sendfile_do_recv(Sock, Bs) ->
      case gen_tcp:recv(Sock, 0, ?SENDFILE_TIMEOUT) of
  	{ok, B} when is_list(Bs) ->
  	    sendfile_do_recv(Sock, [B|Bs]);
  	{error, closed} when is_list(Bs) ->
  	    {ok, iolist_to_binary(lists:reverse(Bs))};
  	{ok, B} when is_integer(Bs) ->
  	    sendfile_do_recv(Sock, byte_size(B) + Bs);
  	{error, closed} when is_integer(Bs) ->
  	    {ok, Bs}
      end.
  
  sendfile_file_info(File) ->
  
negative.code: 	 t_fdopen/1, t_implicit_inet6/1,
  	 t_sendfile_small/1, t_sendfile_big/1,
  	 t_sendfile_hdtl/1, t_sendfile_partial/1,
  	 t_sendfile_offset/1, t_sendfile_sendafter/1,
  	 t_sendfile_recvafter/1, t_sendfile_sendduring/1,
  	 t_sendfile_recvduring/1]).
  
  -export([sendfile_server/2]).
  
  