--- AnyEvent/t/61_fltk_09_multi.t 2011/08/26 18:08:08 1.3 +++ AnyEvent/t/61_fltk_09_multi.t 2013/07/30 23:14:32 1.7 @@ -19,6 +19,7 @@ use AnyEvent; use AnyEvent::Util; + BEGIN { $^W = 0 } BEGIN { $ENV{PERL_ANYEVENT_LOOP_TESTS} or ((print qq{1..0 # SKIP PERL_ANYEVENT_LOOP_TESTS not true\n}), exit 0) } BEGIN { eval q{use AnyEvent::Impl::FLTK;1} or ((print qq{1..0 # SKIP AnyEvent::Impl::FLTK not loadable\n}), exit 0) } @@ -28,6 +29,8 @@ print "ok 1\n"; +$AnyEvent::MAX_SIGNAL_LATENCY = 0.05; + my ($a, $b) = AnyEvent::Util::portable_socketpair; # I/O write @@ -96,7 +99,7 @@ kill INT => $$; $cv = AE::cv; - $wt = AE::timer 0.01, 0, $cv; + $wt = AE::timer 0.2, 0, $cv; # maybe OS X needs more time here? or maybe some buggy arm kernel? $s = 0; $cv->recv; @@ -112,8 +115,6 @@ print $s == 0 ? "" : "not ", "ok 8 # $s\n"; } -$AnyEvent::MAX_SIGNAL_LATENCY = 0.2; - # child { my $cv = AE::cv;