--- AnyEvent/t/65_event_04_condvar.t 2009/07/09 22:49:18 1.2 +++ AnyEvent/t/65_event_04_condvar.t 2011/08/02 20:02:46 1.6 @@ -1,10 +1,8 @@ -$|=1; -BEGIN { - print "1..21\n" -} - use AnyEvent; -use AnyEvent::Impl::Event; +BEGIN { eval q{use AnyEvent::Impl::Event;1} or ((print qq{1..0 # SKIP AnyEvent::Impl::Event not loadable +}), exit 0) } + +$| = 1; print "1..21\n"; print "ok 1\n"; @@ -30,7 +28,7 @@ }); print "ok 2\n"; - $cv->wait; + $cv->recv; print "ok 8\n"; my @x = $cv->recv;