anchor.diff:      end.
   
   build_pool(Name, NSConfig, PoolConfig) ->
  -    case get_memcached_port(NSConfig) of
  -        error -> error;
  -        Port  -> Nodes = ns_node_disco:nodes_actual_proper(),
  -                 create_pool(Name, PoolConfig, Port, Nodes)
  -    end.
  -
  -create_pool(Name, PoolConfig, MemcachedPort, Nodes) ->
  +    build_pool(Name, NSConfig, PoolConfig,
  +                ns_node_disco:nodes_actual_proper()).
  +
  +build_pool(Name, NSConfig, PoolConfig, Nodes) ->
       % {buckets, [
       %   {"default", [
       %     {auth_plain, undefined},
  
positive.code: create_bucket_handle(PoolId, BucketId) ->
      {mc_pool_bucket, PoolId, BucketId}.
  
  nodes_to_addrs(Nodes, Port, Kind, Auth) ->
      PortStr = integer_to_list(Port),
      lists:map(fun(Node) ->
                    {_Name, Host} = misc:node_name_host(Node),
                    Location = lists:concat([Host, ":", PortStr]),
                    mc_addr:create(Location, Kind, Auth)
                end,
                Nodes).
  
  get_memcached_port(NSConfig) ->
      case ns_port_server:get_port_server_param(NSConfig, memcached, "-p") of
          false ->
              ns_log:log(?MODULE, 0003, "missing memcached port"),
              error;
          {value, MemcachedPortStr} ->
              list_to_integer(MemcachedPortStr)
      end.
  
  % ------------------------------------------------
  
negative.code: %% API
  -export([start_link/1, reconfig/2, reconfig/3, reconfig_nodes/3,
           get_bucket/2,
           auth_to_bucket/3]).
  
  -export([pools_config_get/0,
           pools_config_set/1,
  