… | … | ||
---|---|---|---|
696 | @{ $_[1] } or return; # d'oh | 696 | @{ $_[1] } or return; # d'oh |
697 | 697 | ||
698 | my $node = $NODE{$_[0]} or return; | 698 | my $node = $NODE{$_[0]} or return; |
699 | 699 | ||
700 | local $GLOBAL_DB{"'l"}{$_[0]} = $_[1]; #d# UGLY | 700 | local $GLOBAL_DB{"'l"}{$_[0]} = $_[1]; #d# UGLY |
701 | |||
702 | delete $node->{connect_w}; | ||
703 | $node->connect; | 701 | $node->connect; |
704 | }; | 702 | }; |
705 | 703 | ||
706 | sub master_set { | 704 | sub master_set { |
707 | $MASTER = $_[0]; | 705 | $MASTER = $_[0]; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |