--- AnyEvent/t/66_ioasync_01_basic.t 2009/06/25 11:16:08 1.1 +++ AnyEvent/t/66_ioasync_01_basic.t 2009/08/09 13:27:23 1.5 @@ -1,9 +1,7 @@ -$|=1; -BEGIN { print "1..6\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 loadable}), exit 0) } use IO::Async::Loop; AnyEvent::Impl::IOAsync::set_loop new IO::Async::Loop; $^W = 0; + +$| = 1; print "1..6\n"; print "ok 1\n";