Separate member construction function

Author: Emile Joubert

src/gm.erl

@@ -515,7 +515,7 @@ group_members(Server) ->
 init([GroupName, Module, Args]) ->
     {MegaSecs, Secs, MicroSecs} = now(),
     random:seed(MegaSecs, Secs, MicroSecs),
-    Self = {rabbit_guid:guid(), self()},
+    Self = make_member(self()),
     gen_server2:cast(self(), join),
     {ok, #state { self             = Self,
                   left             = {Self, undefined},
@@ -1241,6 +1241,8 @@ prepare_members_state(MembersState) ->
 build_members_state(MembersStateList) ->
     ?DICT:from_list(MembersStateList).
 
+make_member(Pid) -> {rabbit_guid:guid(), Pid}.
+
 get_pid({_Guid, Pid}) -> Pid.
 
 get_pids(Ids) -> [Pid || {_Guid, Pid} <- Ids].