--- Coro/Coro.pm	2007/09/19 22:33:08	1.129
+++ Coro/Coro.pm	2007/09/20 12:02:25	1.130
@@ -232,6 +232,7 @@
 =cut
 
 our $POOL_SIZE = 8;
+our $MAX_POOL_RSS = 64 * 1024;
 our @pool;
 
 sub pool_handler {
@@ -244,7 +245,7 @@
       };
       warn $@ if $@;
 
-      last if @pool >= $POOL_SIZE;
+      last if @pool >= $POOL_SIZE || $current->rss >= $MAX_POOL_RSS;
 
       push @pool, $current;
       $current->{desc} = "[async_pool idle]";