[libanyevent-rabbitmq-perl] 98/151: Fix memory leaks

[Damyan Ivanov]

This is an automated email from the git hooks/post-receive script.

dmn pushed a commit to annotated tag debian/1.12-1
in repository libanyevent-rabbitmq-perl.

commit 54f402a124bc93a6eab5bafefff0b2f057670f58
Author: Tomas Doran <bobtfish at bobtfish.net>
Date:   Thu Jan 5 02:54:20 2012 +0000

    Fix memory leaks
---
 Changes                          | 3 +++
 lib/AnyEvent/RabbitMQ/Channel.pm | 1 +
 2 files changed, 4 insertions(+)

diff --git a/Changes b/Changes
index 6ec4a3b..2449377 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
 Revision history for Perl extension AnyEvent::RabbitMQ
 
+        - Stop leaking all RabbitMQ messages recieved back inside
+          a closure.
+
         - Allow multiple clients to have independent connections
           to RabbitMQ, as long as they all use the same spec file.
 
diff --git a/lib/AnyEvent/RabbitMQ/Channel.pm b/lib/AnyEvent/RabbitMQ/Channel.pm
index d800768..2d20666 100644
--- a/lib/AnyEvent/RabbitMQ/Channel.pm
+++ b/lib/AnyEvent/RabbitMQ/Channel.pm
@@ -654,6 +654,7 @@ sub _push_read_header_and_body {
             $self->{_content_queue}->get($next_frame);
         }
         else {
+            undef $next_frame;
             $frame->payload($body_payload);
             $response->{body} = $frame;
             $cb->($response);

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libanyevent-rabbitmq-perl.git