anchor.diff:  %% @end
   %%
   filter_dead_nodes(Nodes) ->
  -  lists:filter(fun(N) -> net_adm:ping(list_to_atom(N)) =:= ping end, Nodes).
  +  lists:filter(fun(N) -> net_adm:ping(N) =:= pong end, Nodes).
   
   
   %% @private
  
positive.code: %% @doc Check to see if the node is already defined in a cluster, joining if required
  %% @end
  %%
  ensure_clustered() ->
    Nodes = rabbit_mnesia:cluster_nodes(all),
    case Nodes of
      [] ->
        autocluster_log:info("Appears to be first node"),
        ok;
      _  ->
        case lists:member(node(), Nodes) of
          true  -> ok;
          false -> join_cluster(Nodes)
        end
    end.
  
negative.code: init() ->
    application:ensure_started(inets),
    case ensure_registered() of
      {ok, DiscoveryNodes} -> ensure_clustered(DiscoveryNodes);
      error ->
        autocluster_log:info("Error in ensuring clustered"),
        ok
    end.
  
  
  