--- Coro/t/02_channel.t	2001/07/23 02:14:20	1.5
+++ Coro/t/02_channel.t	2008/04/19 19:07:46	1.6
@@ -6,12 +6,12 @@
 
 my $q = new Coro::Channel 1;
 
-sub producer : Coro {
+async { # producer
    for (1..9) {
       print "ok ", $_*2, "\n";
       $q->put($_);
    }
-}
+};
 
 print "ok 1\n";
 cede;