--- AnyEvent/t/03_child.t	2007/11/25 14:08:12	1.7
+++ AnyEvent/t/03_child.t	2008/04/22 05:12:19	1.8
@@ -1,9 +1,20 @@
 $|=1;
-BEGIN { print "1..7\n" }
+BEGIN {
+   print "1..7\n"
+}
 
 use AnyEvent;
 use AnyEvent::Impl::Perl;
 
+print STDERR <<EOF;
+
+If the following test hangs for a long time you either found a bug in
+AnyEvent or, more likely, you have a defective perl (most windows perl
+distros are broken, cygwin perl works). If you do not rely on child
+handlers you can force the installation of this module and the rest will
+likely work. Otherwise upgrading to a working perl is recommended.
+EOF
+
 print "ok 1\n";
 
 my $pid = fork;
@@ -38,6 +49,13 @@
    $cv2->broadcast;
 });
 
+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;
+});
+
 $cv2->wait;
 
 print "ok 7\n";