Avoid unnecessary list allocation
Trigger a 4.2.x alpha release build / trigger_alpha_build (push) Waiting to run
Details
Test (make) / Build and Xref (1.17, 26) (push) Waiting to run
Details
Test (make) / Build and Xref (1.17, 27) (push) Waiting to run
Details
Test (make) / Test (1.17, 27, khepri) (push) Waiting to run
Details
Test (make) / Test (1.17, 27, mnesia) (push) Waiting to run
Details
Test (make) / Test mixed clusters (1.17, 27, khepri) (push) Waiting to run
Details
Test (make) / Test mixed clusters (1.17, 27, mnesia) (push) Waiting to run
Details
Test (make) / Type check (1.17, 27) (push) Waiting to run
Details
Trigger a 4.2.x alpha release build / trigger_alpha_build (push) Waiting to run
Details
Test (make) / Build and Xref (1.17, 26) (push) Waiting to run
Details
Test (make) / Build and Xref (1.17, 27) (push) Waiting to run
Details
Test (make) / Test (1.17, 27, khepri) (push) Waiting to run
Details
Test (make) / Test (1.17, 27, mnesia) (push) Waiting to run
Details
Test (make) / Test mixed clusters (1.17, 27, khepri) (push) Waiting to run
Details
Test (make) / Test mixed clusters (1.17, 27, mnesia) (push) Waiting to run
Details
Test (make) / Type check (1.17, 27) (push) Waiting to run
Details
Avoid unnecessary list allocation for every message being sent to a classic queue.
This commit is contained in:
parent
87a1a0208c
commit
50e5fc77bb
|
@ -999,7 +999,7 @@ message_properties(Message, Confirm, #q{ttl = TTL}) ->
|
|||
|
||||
calculate_msg_expiry(Msg, TTL) ->
|
||||
MsgTTL = mc:ttl(Msg),
|
||||
case lists:min([TTL, MsgTTL]) of
|
||||
case min(TTL, MsgTTL) of
|
||||
undefined -> undefined;
|
||||
T ->
|
||||
os:system_time(microsecond) + T * 1000
|
||||
|
|
Loading…
Reference in New Issue