--- AnyEvent/t/67_tk_04_condvar.t 2008/10/02 08:43:58 1.1 +++ AnyEvent/t/67_tk_04_condvar.t 2011/07/04 21:14:29 1.4 @@ -1,10 +1,8 @@ -$|=1; -BEGIN { - print "1..21\n" -} - use AnyEvent; -use AnyEvent::Impl::Tk; +BEGIN { eval q{use AnyEvent::Impl::Tk;1} or ((print qq{1..0 # SKIP AnyEvent::Impl::Tk not loadable +}), exit 0) } + +$| = 1; print "1..21\n"; print "ok 1\n";