[ViewVC] Diff of: cvs/AnyEvent/t/69_ev_03

Comparing AnyEvent/t/69_ev_03_child.t (file contents):
Revision 1.5 by root, Sat Jul 18 05:19:09 2009 UTC vs.
Revision 1.8 by root, Mon Jul 4 21:14:30 2011 UTC

 use POSIX ();
 no warnings;
-use AnyEvent;
-BEGIN { eval q{use AnyEvent::Impl::EV;1} or ((print qq{1..0 # SKIP AnyEvent::Impl::EV not found}), exit 0) }
 BEGIN {
    # check for broken perls
    if ($^O =~ /mswin32/i) {
       my $ok;
       local $SIG{CHLD} = sub { $ok = 1 };
       kill 'CHLD', 0;
       unless ($ok) {
          print <<EOF;
-1..0 # Your perl interpreter is badly BROKEN. Child watchers will not work, ever. Try upgrading to a newer perl or a working perl (cygwin's perl is known to work). If that is not an option, you should be able to use the remaining functionality of AnyEvent, but child watchers WILL NOT WORK.
+1..0 # SKIP Your perl interpreter is badly BROKEN. Child watchers will not work, ever. Try upgrading to a newer perl or a working perl (cygwin's perl is known to work). If that is not an option, you should be able to use the remaining functionality of AnyEvent, but child watchers WILL NOT WORK.
 EOF
          exit 0;
       }
    }
 }
+use AnyEvent;
+BEGIN { eval q{use AnyEvent::Impl::EV;1} or ((print qq{1..0 # SKIP AnyEvent::Impl::EV not loadable
+}), exit 0) }
 $| = 1; print "1..50\n";
+$AnyEvent::MAX_SIGNAL_LATENCY = 0.2;
 for my $it ("", 1, 2, 3, 4) {
-   $AnyEvent::MAX_SIGNAL_LATENCY = 1;
    print "ok ${it}1\n";
    AnyEvent::detect; # force-load event model
    my $pid = fork;

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines