Use named descendants

Uses cache Updates #681
shawnlaffan · Dec 9, 2017 · e2be192 · e2be192
1 parent fc4bd7b
commit e2be192
Showing 1 changed file with 10 additions and 10 deletions.
diff --git a/lib/Biodiverse/TreeNode.pm b/lib/Biodiverse/TreeNode.pm
@@ -2236,16 +2236,16 @@ sub get_node_range {
 
     return $cached_range if defined $cached_range;
 
-    my @labels   = ($self->get_name);
-    my $children =  $self->get_all_descendants;
-
-    #  collect the set of non-internal (named) nodes
-    #  Possibly should only work with terminals
-    #  which would simplify things.
-    foreach my $name (keys %$children) {
-        next if $children->{$name}->is_internal_node;
-        push (@labels, $name);
-    }
+    my $children =  $self->get_all_named_descendants;
+    my @labels   = ($self->get_name, keys %$children);
+
+    ##  collect the set of non-internal (named) nodes
+    ##  Possibly should only work with terminals
+    ##  which would simplify things.
+    #foreach my $name (keys %$children) {
+    #    next if $children->{$name}->is_internal_node;
+    #    push (@labels, $name);
+    #}
 
     my $range = $bd->get_range_union (labels => \@labels, return_count => 1);