--- Coro/Coro.pm	2007/01/12 01:15:03	1.109
+++ Coro/Coro.pm	2007/01/12 01:45:55	1.110
@@ -236,7 +236,7 @@
 sub pool_handler {
    while () {
       eval {
-         my ($cb, @arg) = @{ delete $current->{_invoke} };
+         my ($cb, @arg) = @{ delete $current->{_invoke} or return };
          $cb->(@arg);
       };
       warn $@ if $@;