--- Coro/t/00_basic.t 2001/08/11 19:59:20 1.4 +++ Coro/t/00_basic.t 2006/12/04 13:47:56 1.6 @@ -9,15 +9,16 @@ sub a { print "ok 3\n"; - $proc->transfer($main, 0); + $proc->transfer ($main); print "ok 5\n"; - $proc->transfer($main, 0); + $proc->transfer ($main); + print "not ok 6\n"; die; } print "ok 2\n"; -$main->transfer($proc, 0); +$main->transfer ($proc); print "ok 4\n"; -$main->transfer($proc, 0); +$main->transfer ($proc); print "ok 6\n";