--- cvsroot/Coro/Coro.pm	2008/05/25 03:05:42	1.187
+++ cvsroot/Coro/Coro.pm	2008/07/23 22:15:25	1.195
@@ -68,7 +68,7 @@
 our $main;    # main coroutine
 our $current; # current coroutine
 
-our $VERSION = 4.72;
+our $VERSION = 4.745;
 
 our @EXPORT = qw(async async_pool cede schedule terminate current unblock_sub);
 our %EXPORT_TAGS = (
@@ -268,8 +268,10 @@
          }
       };
 
-      last if $@ eq "\3async_pool terminate\2\n";
-      warn $@ if $@;
+      if ($@) {
+         last if $@ eq "\3async_pool terminate\2\n";
+         warn $@;
+      }
    }
 }