… | |
… | |
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 | |