| … | |
… | |
| 442 | |
442 | |
| 443 | $_->(@_) for @$cbs; |
443 | $_->(@_) for @$cbs; |
| 444 | }, |
444 | }, |
| 445 | # node changed its name (for slave nodes) |
445 | # node changed its name (for slave nodes) |
| 446 | iam => sub { |
446 | iam => sub { |
|
|
447 | # get rid of bogus slave/xxx name, hopefully |
|
|
448 | delete $NODE{$SRCNODE->{noderef}}; |
|
|
449 | |
|
|
450 | # change noderef |
| 447 | $SRCNODE->{noderef} = $_[0]; |
451 | $SRCNODE->{noderef} = $_[0]; |
|
|
452 | |
|
|
453 | # anchor |
| 448 | $NODE{$_[0]} = $SRCNODE; |
454 | $NODE{$_[0]} = $SRCNODE; |
| 449 | }, |
455 | }, |
| 450 | |
456 | |
| 451 | # public services |
457 | # public services |
| 452 | |
458 | |
