| … | |
… | |
| 63 | } else { |
63 | } else { |
| 64 | Coro::EV::timer_once $SCHEDULE_INTERVAL; |
64 | Coro::EV::timer_once $SCHEDULE_INTERVAL; |
| 65 | } |
65 | } |
| 66 | |
66 | |
| 67 | # this weird form of iteration over values is used because |
67 | # this weird form of iteration over values is used because |
| 68 | # the hash changes underneath us frequently, and for |
68 | # the hash changes underneath us frequently, and 'for' |
| 69 | # keeps a direct reference to the value without (in 5.8 perls) |
69 | # keeps a direct reference to the value without (in 5.8 perls) |
| 70 | # keeping a reference, so this is prone to crashes or worse. |
70 | # keeping a reference, so this is prone to crashes or worse. |
| 71 | my @maps = keys %cf::MAP; |
71 | my @maps = keys %cf::MAP; |
| 72 | for (@maps) { |
72 | for (@maps) { |
| 73 | my $map = $cf::MAP{$_} |
73 | my $map = $cf::MAP{$_} |
