--- AnyEvent/t/62_cocoa_03_child.t 2011/08/12 18:41:27 1.5 +++ AnyEvent/t/62_cocoa_03_child.t 2011/10/01 22:39:29 1.6 @@ -44,10 +44,9 @@ my $cv = AnyEvent->condvar; unless ($pid) { - print "ok ${it}2\n"; + print "ok ${it}2 # child $$\n"; POSIX::_exit 3; } - my $w = AnyEvent->child (pid => $pid, cb => sub { print $pid == $_[0] ? "" : "not ", "ok ${it}3\ # $pid == $_[0]\n"; print 3 == ($_[1] >> 8) ? "" : "not ", "ok ${it}4 # 3 == $_[1] >> 8 ($_[1])\n";