[libanyevent-rabbitmq-perl] 63/151: workaround "DESTROY created new reference to dead object" issue

[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 ec13602e3bb4d676f750a22e659bc8aedc09f16f
Author: Chia-liang Kao <clkao at clkao.org>
Date:   Mon Aug 16 20:29:49 2010 +0800

    workaround "DESTROY created new reference to dead object" issue
---
 lib/AnyEvent/RabbitMQ.pm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/lib/AnyEvent/RabbitMQ.pm b/lib/AnyEvent/RabbitMQ.pm
index c5d0d2c..705997f 100644
--- a/lib/AnyEvent/RabbitMQ.pm
+++ b/lib/AnyEvent/RabbitMQ.pm
@@ -476,8 +476,13 @@ sub drain_writes {
     delete $self->{drain_timer};
 }
 
+my $is_gd;
+
+END { $is_gd++ };
+
 sub DESTROY {
     my $self = shift;
+    return if $is_gd;
     $self->close();
     return;
 }

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