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