| … | |
… | |
| 275 | $times ? ("t_real", "t_cpu") : (), |
275 | $times ? ("t_real", "t_cpu") : (), |
| 276 | "Description", "Where"; |
276 | "Description", "Where"; |
| 277 | for my $coro (reverse Coro::State::list) { |
277 | for my $coro (reverse Coro::State::list) { |
| 278 | my @bt; |
278 | my @bt; |
| 279 | Coro::State::call ($coro, sub { |
279 | Coro::State::call ($coro, sub { |
| 280 | # we try to find *the* definite frame that gives msot useful info |
280 | # we try to find *the* definite frame that gives most useful info |
| 281 | # by skipping Coro frames and pseudo-frames. |
281 | # by skipping Coro frames and pseudo-frames. |
| 282 | for my $frame (1..10) { |
282 | for my $frame (1..10) { |
| 283 | my @frame = caller $frame; |
283 | my @frame = caller $frame; |
| 284 | @bt = @frame if $frame[2]; |
284 | @bt = @frame if $frame[2]; |
| 285 | last unless $bt[0] =~ /^Coro/; |
285 | last unless $bt[0] =~ /^Coro/; |
