--- cvsroot/Coro/Coro.pm	2009/07/22 03:02:07	1.262
+++ cvsroot/Coro/Coro.pm	2009/08/13 02:35:41	1.264
@@ -82,7 +82,7 @@
 our $main;    # main coro
 our $current; # current coro
 
-our $VERSION = 5.161;
+our $VERSION = 5.162;
 
 our @EXPORT = qw(async async_pool cede schedule terminate current unblock_sub);
 our %EXPORT_TAGS = (
@@ -209,14 +209,6 @@
       print "@_\n";
    } 1,2,3,4;
 
-=cut
-
-sub async(&@) {
-   my $coro = new Coro @_;
-   $coro->ready;
-   $coro
-}
-
 =item async_pool { ... } [@args...]
 
 Similar to C<async>, but uses a coro pool, so you should not call