--- AnyEvent/t/09_multi.t	2011/08/12 00:53:29	1.4
+++ 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
@@ -41,7 +45,7 @@
 # I/O read
 {
    my $cv = AE::cv;
-   my $wt = AE::timer 0.1, 0, $cv;
+   my $wt = AE::timer 0.01, 0, $cv;
    my $s = 0;
 
    my $wa = AE::io $a, 0, sub { $cv->end; $s |= 1 };
@@ -66,7 +70,7 @@
    sysread $a, my $dummy, 1;
 
    $cv = AE::cv;
-   $wt = AE::timer 0.1, 0, $cv;
+   $wt = AE::timer 0.01, 0, $cv;
 
    $s = 0;
    $cv->recv;
@@ -77,7 +81,7 @@
 # signal
 {
    my $cv = AE::cv;
-   my $wt = AE::timer 0.1, 0, $cv;
+   my $wt = AE::timer 0.01, 0, $cv;
    my $s = 0;
 
    $cv->begin; my $wa = AE::signal INT => sub { $cv->end; $s |= 1 };
@@ -90,7 +94,7 @@
    kill INT => $$;
 
    $cv = AE::cv;
-   $wt = AE::timer 0.1, 0, $cv;
+   $wt = AE::timer 0.2, 0, $cv; # maybe OS X needs more time here?
 
    $s = 0;
    $cv->recv;
@@ -98,7 +102,7 @@
    print $s == 3 ? "" : "not ", "ok 7 # $s\n";
 
    $cv = AE::cv;
-   $wt = AE::timer 0.1, 0, $cv;
+   $wt = AE::timer 0.01, 0, $cv;
 
    $s = 0;
    $cv->recv;
@@ -106,12 +110,10 @@
    print $s == 0 ? "" : "not ", "ok 8 # $s\n";
 }
 
-$AnyEvent::MAX_SIGNAL_LATENCY = 0.2;
-
 # child
 {
    my $cv = AE::cv;
-   my $wt = AE::timer 0.1, 0, $cv;
+   my $wt = AE::timer 0.01, 0, $cv;
    my $s = 0;
 
    my $pid = fork;
@@ -133,7 +135,7 @@
    kill 9, $pid;
 
    $cv = AE::cv;
-   $wt = AE::timer 0.1, 0, $cv;
+   $wt = AE::timer 0.2, 0, $cv; # cygwin needs ages for this
 
    $s = 0;
    $cv->recv;
@@ -143,7 +145,7 @@
    print $astatus == 9 && $bstatus == 9 ? "" : "not ", "ok 12 # $astatus == $bstatus == 9\n";
 
    $cv = AE::cv;
-   $wt = AE::timer 0.1, 0, $cv;
+   $wt = AE::timer 0.01, 0, $cv;
 
    $s = 0;
    $cv->recv;