--- AnyEvent/t/04_condvar.t 2008/05/24 17:48:38 1.2 +++ AnyEvent/t/04_condvar.t 2011/08/02 20:02:45 1.5 @@ -1,10 +1,7 @@ -$|=1; -BEGIN { - print "1..21\n" -} - use AnyEvent; -use AnyEvent::Impl::Perl; +BEGIN { require AnyEvent::Impl::Perl unless $ENV{PERL_ANYEVENT_MODEL} } + +$| = 1; print "1..21\n"; print "ok 1\n"; @@ -30,7 +27,7 @@ }); print "ok 2\n"; - $cv->wait; + $cv->recv; print "ok 8\n"; my @x = $cv->recv;