--- Coro/t/02_channel.t	2001/07/14 22:14:21	1.3
+++ Coro/t/02_channel.t	2001/07/21 18:21:45	1.4
@@ -4,7 +4,7 @@
 use Coro;
 use Coro::Channel;
 
-my $q = new Coro::Channel 0;
+my $q = new Coro::Channel 1;
 
 sub producer : Coro {
    for (1..9) {
@@ -17,7 +17,7 @@
 yield;
 
 for (11..19) {
-   my $x = do { local $_; $q->get };
+   my $x = $q->get;
    print $x == $_-10 ? "ok " : "not ok ", ($_-10)*2+1, "\n";
 }