--- AnyEvent/t/67_tk_03_child.t	2008/10/02 08:43:58	1.1
+++ AnyEvent/t/67_tk_03_child.t	2009/07/18 00:05:29	1.4
@@ -1,4 +1,7 @@
-$|=1;
+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
@@ -16,12 +19,9 @@
    }
 }
 
-BEGIN {
-   print "1..7\n"
-}
+$| = 1; print "1..7\n";
 
-use AnyEvent;
-use AnyEvent::Impl::Tk;
+$AnyEvent::MAX_SIGNAL_LATENCY = 1;
 
 print "ok 1\n";
 
@@ -38,7 +38,7 @@
 
 unless ($pid) {
    print "ok 2\n";
-   exit 3;
+   POSIX::_exit 3;
 }
 
 my $w = AnyEvent->child (pid => $pid, cb => sub {
@@ -49,7 +49,7 @@
 
 $cv->wait;
 
-my $pid2 = fork || exit 7;
+my $pid2 = fork || POSIX::_exit 7;
 
 my $cv2 = AnyEvent->condvar;