Fix setting of T flag at failover

This seems to have been broken at some point before diameter was
included in OTP, prior to R14B03.

1 files changed, 7 insertions, 3 deletions

diff --git a/lib/diameter/src/base/diameter_service.erl b/lib/diameter/src/base/diameter_service.erl
index a4a0b80348..91384b8b91 100644
--- a/lib/diameter/src/base/diameter_service.erl
+++ b/lib/diameter/src/base/diameter_service.erl
@@ -1703,16 +1703,20 @@ send(Pid, Pkt) ->
 %% retransmit/4
 
 retransmit({TPid, Caps, #diameter_app{alias = Alias} = App} = T,
-           #request{app = Alias, packet = Pkt}
+           #request{app = Alias, packet = Pkt0}
            = Req,
            SvcName,
            Timeout) ->
-    have_request(Pkt, TPid)      %% Don't failover to a peer we've
+    have_request(Pkt0, TPid)      %% Don't failover to a peer we've
         andalso ?THROW(timeout), %% already sent to.
 
+    #diameter_packet{header = Hdr0} = Pkt0,
+    Hdr = Hdr0#diameter_header{is_retransmitted = true},
+    Pkt = Pkt0#diameter_packet{header = Hdr},
+
     resend_req(cb(App, prepare_retransmit, [Pkt, SvcName, {TPid, Caps}]),
                T,
-               Req,
+               Req#request{packet = Pkt},
                Timeout,
                []).