| … | |
… | |
| 17 | } |
17 | } |
| 18 | } |
18 | } |
| 19 | } |
19 | } |
| 20 | |
20 | |
| 21 | use AnyEvent; |
21 | use AnyEvent; |
|
|
22 | |
|
|
23 | BEGIN { $ENV{PERL_ANYEVENT_LOOP_TESTS} or ((print qq{1..0 # SKIP PERL_ANYEVENT_LOOP_TESTS not true\n}), exit 0) } |
| 22 | BEGIN { eval q{use AnyEvent::Impl::Tk;1} or ((print qq{1..0 # SKIP AnyEvent::Impl::Tk not loadable |
24 | BEGIN { eval q{use AnyEvent::Impl::Tk;1} or ((print qq{1..0 # SKIP AnyEvent::Impl::Tk not loadable\n}), exit 0) } |
| 23 | }), exit 0) } |
25 | |
|
|
26 | |
| 24 | |
27 | |
| 25 | $| = 1; print "1..50\n"; |
28 | $| = 1; print "1..50\n"; |
| 26 | |
29 | |
| 27 | $AnyEvent::MAX_SIGNAL_LATENCY = 0.2; |
30 | $AnyEvent::MAX_SIGNAL_LATENCY = 0.2; |
| 28 | |
31 | |
