--- Coro/t/02_channel.t	2001/07/10 01:43:21	1.1
+++ Coro/t/02_channel.t	2001/07/13 13:05:38	1.2
@@ -18,7 +18,7 @@
 yield;
 
 for (11..19) {
-   my $x = $q->get;
+   my $x = do { local $_; $q->get };
    print $x == $_-10 ? "ok " : "not ok ", ($_-10)*2+1, "\n";
 }