… | … | ||
---|---|---|---|
88 | sub set_seeds(@) { | 88 | sub set_seeds(@) { |
89 | @SEEDS = @_; | 89 | @SEEDS = @_; |
90 | 90 | ||
91 | $SEED_WATCHER ||= AE::timer 5, $AnyEvent::MP::Kernel::MONITOR_TIMEOUT, \&more_seeding; | 91 | $SEED_WATCHER ||= AE::timer 5, $AnyEvent::MP::Kernel::MONITOR_TIMEOUT, \&more_seeding; |
92 | 92 | ||
93 | seed_connect $_ | 93 | for my $seed (@SEEDS) { |
94 | for @SEEDS; | 94 | after 0.100 * rand, sub { seed_connect $seed }; |
95 | } | ||
95 | } | 96 | } |
96 | 97 | ||
97 | ############################################################################# | 98 | ############################################################################# |
98 | 99 | ||
99 | sub unreg_groups($) { | 100 | sub unreg_groups($) { |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |