anchor.diff:          {noreply, State} ->
               acceptor_loop(Active, Socket, State, Mod, Option);
           {close, State} ->
  -            gen_tcp:close(Socket);
  +            tcp_closed;
           {close, DataToSend, State} ->
  -            gen_tcp:send(Socket, DataToSend),
  -            gen_tcp:close(Socket);
  -        _Error ->
  -            gen_tcp:close(Socket)
  +            gen_tcp:send(Socket, DataToSend);
  +        Other ->
  +            ?warning(io_lib:format("call_mod(~p) ~p", [Mod, {unexpected_result, Other}]))
       end.
   
  
positive.code:         {tcp_closed, _Socket} ->
              tcp_closed;
          Error ->
              exit({error, Error})
      after Option#tcp_server_option.recv_timeout ->
          exit({error, tcp_timeout})
      end.
   
  call_mod(Active, Socket, Data, State, Mod, Option) ->
  
negative.code:             tcp_closed;
          {error, Reason} ->
              ?warning(io_lib:format("acceptor_loop(~p) ~p", [Mod, {error, Reason}])),
              error
      end;
  
  acceptor_loop(true, _DummySocket, State, Mod, Option) ->
  