| … | |
… | |
| 66 | } else { |
66 | } else { |
| 67 | select undef, undef, undef, $timer[0][0] - $NOW; |
67 | select undef, undef, undef, $timer[0][0] - $NOW; |
| 68 | $NOW = time; |
68 | $NOW = time; |
| 69 | } |
69 | } |
| 70 | }; |
70 | }; |
| 71 | print "hihohihoh ($timer, $timer->{_coro_state})\n"; |
|
|
| 72 | print "hihohihoy $Coro::current\n"; |
|
|
| 73 | use Devel::Peek; |
|
|
| 74 | #Dump($timer); |
|
|
| 75 | undef $timer; |
71 | undef $timer; |
| 76 | print "hihohihox $Coro::current\n"; |
|
|
| 77 | }; |
72 | }; |
| 78 | $timer->prio(Coro::PRIO_MIN); |
73 | $timer->prio(Coro::PRIO_MIN); |
| 79 | $timer->ready; |
74 | $timer->ready; |
| 80 | } |
75 | } |
| 81 | |
76 | |
