--- AnyEvent/t/66_ioasync_04_condvar.t 2009/06/25 11:16:08 1.1 +++ AnyEvent/t/66_ioasync_04_condvar.t 2009/07/18 00:05:29 1.3 @@ -1,11 +1,7 @@ -$|=1; -BEGIN { - print "1..21\n" -} - use AnyEvent; -use AnyEvent::Impl::IOAsync; -use IO::Async::Loop; AnyEvent::Impl::IOAsync::set_loop new IO::Async::Loop; +BEGIN { eval q{use AnyEvent::Impl::IOAsync;1} or ((print qq{1..0 # SKIP AnyEvent::Impl::IOAsync not found}), exit 0) } use IO::Async::Loop; AnyEvent::Impl::IOAsync::set_loop new IO::Async::Loop; + +$| = 1; print "1..21\n"; print "ok 1\n";