--- AnyEvent/t/03_child.t	2008/05/23 16:36:02	1.10
+++ AnyEvent/t/03_child.t	2009/05/13 15:19:43	1.11
@@ -1,5 +1,3 @@
-$|=1;
-
 BEGIN {
    # check for broken perls
    if ($^O =~ /mswin32/i) {
@@ -17,9 +15,12 @@
 }
 
 BEGIN {
+   $|=1;
    print "1..7\n"
 }
 
+use POSIX ();
+
 use AnyEvent;
 use AnyEvent::Impl::Perl;
 
@@ -38,7 +39,7 @@
 
 unless ($pid) {
    print "ok 2\n";
-   exit 3;
+   POSIX::_exit 3;
 }
 
 my $w = AnyEvent->child (pid => $pid, cb => sub {
@@ -49,7 +50,7 @@
 
 $cv->wait;
 
-my $pid2 = fork || exit 7;
+my $pid2 = fork || POSIX::_exit 7;
 
 my $cv2 = AnyEvent->condvar;