> - my $nd = delete $nodelist->{$param->{node}}; > - die "no such node '$param->{node}'\n" if !$nd; > - > + my $node; > + > + foreach my $tmp_node (keys %$nodelist) { > + > + if ($nodelist->{$tmp_node}->{ring0_addr} eq $param->{node} Please can we also test ring1_addr?