Fixed recursive calls on disconnect

audreyt · Jun 22, 2011 · cc08943 · cc08943
1 parent 23f1a68
commit cc08943
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 9 deletions.
diff --git a/lib/PocketIO/Connection.pm b/lib/PocketIO/Connection.pm
@@ -112,7 +112,12 @@ sub disconnected {
 
     $self->{is_connected} = 0;
 
-    $self->on('disconnect')->($self);
+    $self->{disconnect_timer} = AnyEvent->timer(
+        after => 0,
+        cb    => sub {
+            $self->on('disconnect')->($self);
+        }
+    );
 
     return $self;
 }
@@ -299,10 +304,6 @@ sub _parse_data {
     return;
 }
 
-sub DESTROY {
-    DEBUG && warn "Connection destroyed\n";
-}
-
 1;
 __END__
 

diff --git a/lib/PocketIO/Handle.pm b/lib/PocketIO/Handle.pm
@@ -129,10 +129,6 @@ sub close {
     return $self;
 }
 
-sub DESTROY {
-    DEBUG && warn "Handle destroyed\n";
-}
-
 1;
 __END__