ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/Coro/t/02_channel.t
(Generate patch)

Comparing Coro/t/02_channel.t (file contents):
Revision 1.1 by root, Tue Jul 10 01:43:21 2001 UTC vs.
Revision 1.2 by root, Fri Jul 13 13:05:38 2001 UTC

… …
16 16
17print "ok 1\n"; 17print "ok 1\n";
18yield; 18yield;
19 19
20for (11..19) { 20for (11..19) {
21 my $x = $q->get; 21 my $x = do { local $_; $q->get };
22 print $x == $_-10 ? "ok " : "not ok ", ($_-10)*2+1, "\n"; 22 print $x == $_-10 ? "ok " : "not ok ", ($_-10)*2+1, "\n";
23} 23}
24 24

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines