… | |
… | |
138 | |
138 | |
139 | See L<Coro::EV> or L<Coro::AnyEvent> for examples of using this technique. |
139 | See L<Coro::EV> or L<Coro::AnyEvent> for examples of using this technique. |
140 | |
140 | |
141 | =cut |
141 | =cut |
142 | |
142 | |
|
|
143 | # ||= because other modules could have provided their own by now |
143 | $idle = new Coro sub { |
144 | $idle ||= new Coro sub { |
144 | require Coro::Debug; |
145 | require Coro::Debug; |
145 | die "FATAL: deadlock detected.\n" |
146 | die "FATAL: deadlock detected.\n" |
146 | . Coro::Debug::ps_listing (); |
147 | . Coro::Debug::ps_listing (); |
147 | }; |
148 | }; |
148 | |
149 | |