anchor.diff:  add_pool(Name, ConnTimeout) when is_atom(Name),
                                    is_integer(ConnTimeout),
                                    ConnTimeout > 0 ->
  +    {ok, PoolSize} = application:get_env(lhttpc, pool_size),
       add_pool(Name,
                ConnTimeout,
  -             application:get_env(lhttpc, pool_size)).
  +             PoolSize).
   
   %% Add a new httpc_manager to the supervisor tree
   -spec add_pool(atom(), non_neg_integer(), non_neg_integer() | atom()) ->
  
positive.code: verify_options([{pool, PidOrName} | Options])
          when is_pid(PidOrName); is_atom(PidOrName) ->
      verify_options(Options);
  verify_options([Option | _Rest]) ->
      erlang:error({bad_option, Option});
  verify_options([]) ->
  
negative.code: -spec add_pool(atom()) ->
            {ok, pid()} | {error, term()}.
  add_pool(Name) when is_atom(Name) ->
      {ok, ConnTimeout} = application:get_env(lhttpc, connection_timeout),
      {ok, PoolSize} = application:get_env(lhttpc, pool_size),
      add_pool(Name,
               ConnTimeout,
               PoolSize).
  
  %% Add a new httpc_manager to the supervisor tree
  -spec add_pool(atom(), non_neg_integer()) ->
  