Fix leaky retry solution

ferd · Nov 21, 2014 · c597be7 · c597be7
1 parent 1211c86
commit c597be7
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/dlhttpc_disp.erl b/src/dlhttpc_disp.erl
@@ -52,6 +52,7 @@ checkout(Host, Port, Ssl, MaxConn, ConnTimeout, SocketOpts, CheckoutRetry) ->
 
 checkout(Info, CheckoutRetry) ->
     RetryFn = fun(Response, 0) -> Response;
+                 ({ok,_,_}=Response, _) -> Response;
                  (_Response, N) -> checkout(Info, N) end,
     Response = dispcount:checkout(Info),
     RetryFn(Response, CheckoutRetry-1).