workaround "DESTROY created new reference to dead object" issue

cooldaemon · Aug 16, 2010 · ec13602 · ec13602
1 parent 5b98c6f
commit ec13602
Showing 1 changed file with 5 additions and 0 deletions.
diff --git 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;
 }