| … | |
… | |
| 344 | $node->{trial}{accept} = $tp; |
344 | $node->{trial}{accept} = $tp; |
| 345 | }, |
345 | }, |
| 346 | ; |
346 | ; |
| 347 | } |
347 | } |
| 348 | |
348 | |
| 349 | connect_node $_ for @others; |
349 | for (@others) { |
|
|
350 | my $node = add_node $_; |
|
|
351 | $node->{autoconnect} = 1; |
|
|
352 | $node->connect; |
|
|
353 | } |
| 350 | |
354 | |
| 351 | if ($SLAVE) { |
355 | if ($SLAVE) { |
| 352 | my $timeout = AE::timer $MONITOR_TIMEOUT, 0, sub { $SLAVE->() }; |
356 | my $timeout = AE::timer $MONITOR_TIMEOUT, 0, sub { $SLAVE->() }; |
| 353 | my $master = $SLAVE->recv; |
357 | my $master = $SLAVE->recv; |
| 354 | $master |
358 | $master |
