--- Coro/t/08_join.t 2001/10/28 17:00:09 1.1 +++ Coro/t/08_join.t 2011/04/29 15:43:27 1.2 @@ -12,12 +12,12 @@ $p2 = async { print "ok 4\n"; - (); + () }; $p3 = async { print "ok 5\n"; - (0,1,2); + (0,1,2) }; print "ok 2\n"; @@ -25,5 +25,5 @@ print 0 == ($p3->join)[0] ? "ok " : "not ok ", "7\n"; print 1 == ($p3->join)[1] ? "ok " : "not ok ", "8\n"; print 2 == ($p3->join)[2] ? "ok " : "not ok ", "9\n"; -print 5 == $p1->join ? "ok " : "not ok ", "10\n"; +print 5 == $p1->join ? "ok " : "not ok ", "10\n";