| … | |
… | |
| 173 | } |
173 | } |
| 174 | |
174 | |
| 175 | sub kil(@) { |
175 | sub kil(@) { |
| 176 | my ($noderef, $port) = split /#/, shift, 2; |
176 | my ($noderef, $port) = split /#/, shift, 2; |
| 177 | |
177 | |
|
|
178 | length $port or Carp::cluck "yuk\n";#d# |
| 178 | length $port |
179 | length $port |
| 179 | or Carp::croak "killing the node port is not allowed, caught"; |
180 | or Carp::croak "$noderef: killing a node port is not allowed, caught"; |
| 180 | |
181 | |
| 181 | ($NODE{$noderef} || add_node $noderef) |
182 | ($NODE{$noderef} || add_node $noderef) |
| 182 | ->kill ($port, @_); |
183 | ->kill ($port, @_); |
| 183 | } |
184 | } |
| 184 | |
185 | |
