… | |
… | |
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{$_} |