merged bug19758 into default

This commit is contained in:
Tony Garnock-Jones 2008-12-03 13:43:32 +00:00
commit 03fe8e39e9
1 changed files with 13 additions and 0 deletions

View File

@ -36,6 +36,9 @@
-define(SERVER, ?MODULE).
%% cross-node routing optimisation is disabled because of bug 19758.
-define(BUG19758, true).
%%----------------------------------------------------------------------------
-ifdef(use_specs).
@ -51,6 +54,14 @@
start_link() ->
gen_server:start_link({local, ?SERVER}, ?MODULE, [], []).
-ifdef(BUG19758).
deliver(QPids, Mandatory, Immediate, Txn, Message) ->
check_delivery(Mandatory, Immediate,
run_bindings(QPids, Mandatory, Immediate, Txn, Message)).
-else.
deliver(QPids, Mandatory, Immediate, Txn, Message) ->
%% we reduce inter-node traffic by grouping the qpids by node and
%% only delivering one copy of the message to each node involved,
@ -114,6 +125,8 @@ deliver_per_node(NodeQPids, Mandatory, Immediate,
R),
check_delivery(Mandatory, Immediate, {Routed, lists:append(Handled)}).
-endif.
%%--------------------------------------------------------------------
init([]) ->