--- AnyEvent/t/67_tk_03_child.t	2009/07/09 22:49:18	1.2
+++ AnyEvent/t/67_tk_03_child.t	2009/07/18 00:05:29	1.4
@@ -1,3 +1,8 @@
+use POSIX ();
+
+use AnyEvent;
+BEGIN { eval q{use AnyEvent::Impl::Tk;1} or ((print qq{1..0 # SKIP AnyEvent::Impl::Tk not found}), exit 0) } 
+
 BEGIN {
    # check for broken perls
    if ($^O =~ /mswin32/i) {
@@ -14,15 +19,9 @@
    }
 }
 
-BEGIN {
-   $|=1;
-   print "1..7\n"
-}
+$| = 1; print "1..7\n";
 
-use POSIX ();
-
-use AnyEvent;
-use AnyEvent::Impl::Tk;
+$AnyEvent::MAX_SIGNAL_LATENCY = 1;
 
 print "ok 1\n";
 
@@ -60,19 +59,13 @@
    $cv2->broadcast;
 });
 
-my $error = AnyEvent->timer (after => 15, cb => sub {
+my $error = AnyEvent->timer (after => 5, cb => sub {
    print <<EOF;
 Bail out! No child exit detected. This is either a bug in AnyEvent or a bug in your Perl (mostly some windows distributions suffer from that): child watchers might not work properly on this platform. You can force installation of this module if you do not rely on child watchers, or you could upgrade to a working version of Perl for your platform.\n";
 EOF
    exit 0;
 });
 
-my $inter = AnyEvent->timer (after => 14, cb => sub {
-   print "not ok 5 # inter\n";
-   print "not ok 6 # inter\n";
-   $cv2->send;
-});
-
 $cv2->wait;
 
 print "ok 7\n";