diff --git a/lib/AnyEvent/NSQ/Connection.pm b/lib/AnyEvent/NSQ/Connection.pm index 25cddd0..f11b4a6 100644 --- a/lib/AnyEvent/NSQ/Connection.pm +++ b/lib/AnyEvent/NSQ/Connection.pm @@ -136,7 +136,10 @@ sub requeue_msg { my ($self, $msg, $delay) = @_; return unless my $hdl = $self->{handle}; - $hdl->push_write("FIN $msg->{message_id}\012"); + $delay = 0 unless defined $delay; + $delay = $msg->{attempts} * $self->{requeue_delay} if $delay < 0; + + $hdl->push_write("REQ $msg->{message_id} $delay\012"); return; }