+# Check if $osdid belongs to $nodename
+# $tree ... rados osd tree (passing the tree makes it easy to test)
+sub osd_belongs_to_node {
+ my ($tree, $nodename, $osdid) = @_;
+
+ die "No tree nodes found\n" if !($tree && $tree->{nodes});
+ my $allNodes = $tree->{nodes};
+
+ my @match = grep($_->{name} eq $nodename, @$allNodes);
+ my $node = shift @match; # contains rados information about $nodename
+ die "There must not be more than one such node in the list" if @match;
+
+ my $osds = $node->{children};
+ return grep($_ == $osdid, @$osds);
+}
+