--- AnyEvent/t/09_multi.t 2011/08/12 18:41:26 1.5 +++ AnyEvent/t/09_multi.t 2011/08/27 16:01:49 1.8 @@ -14,6 +14,8 @@ } } +$^W = 0; # 5.8.6 bugs + use AnyEvent; use AnyEvent::Util; BEGIN { require AnyEvent::Impl::Perl unless $ENV{PERL_ANYEVENT_MODEL} } @@ -22,6 +24,8 @@ print "ok 1\n"; +$AnyEvent::MAX_SIGNAL_LATENCY = 0.05; + my ($a, $b) = AnyEvent::Util::portable_socketpair; # I/O write @@ -90,7 +94,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? $s = 0; $cv->recv; @@ -106,8 +110,6 @@ print $s == 0 ? "" : "not ", "ok 8 # $s\n"; } -$AnyEvent::MAX_SIGNAL_LATENCY = 0.2; - # child { my $cv = AE::cv; @@ -133,7 +135,7 @@ kill 9, $pid; $cv = AE::cv; - $wt = AE::timer 0.01, 0, $cv; + $wt = AE::timer 0.2, 0, $cv; # cygwin needs ages for this $s = 0; $cv->recv;