anchor.diff:  -spec(handle_response(binary(), #state{}) ->
                #state{}).
   handle_response(Data, #state{pid_from = From,
  -                             socket = Socket,
  +                             socket = _Socket,
                                nreq   = NumReq} = State) ->
       reply(Data, From),
       case NumReq of
           ?MAX_REQ_PER_CON ->
  -            catch gen_tcp:close(Socket),
  -            State#state{pid_from = undefined, socket = undefined, nreq = 0};
  +            %% for debug
  +            State#state{pid_from = undefined, nreq = NumReq + 1};
  +            %catch gen_tcp:close(Socket),
  +            %State#state{pid_from = undefined, socket = undefined, nreq = 0};
           _ ->
               State#state{pid_from = undefined, nreq = NumReq + 1}
       end.
  
positive.code:                 ok ->
                      {noreply, State1#state{pid_from = From}};
                  {error, Reason} ->
                      {reply, {error, Reason}, State1}
              end;
          {error, Reason} ->
              {reply, {error, Reason}, State}
      end;
  
  exec(Req, From, #state{socket = Socket} = State) ->
  
negative.code:         ok ->
              {noreply, State#state{pid_from = From}};
          {error, Reason} ->
              {stop, Reason, {error, Reason}, State}
      end.
  
  
  