Minor update to comments.

shawnlaffan · Apr 13, 2016 · 903cf42 · 903cf42
1 parent 2ccedb4
commit 903cf42
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/lib/Biodiverse/ReadNexus.pm b/lib/Biodiverse/ReadNexus.pm
@@ -598,6 +598,7 @@ sub parse_newick {
     my $node_count      = $args{node_count} // croak 'node_count arg not passed (must be scalar ref)';
     my $translate_hash  = $args{translate_hash}
                         || $self->get_param ('TRANSLATE_HASH');
+    #  clunky that we need to do this - was convenient once, but not now
     my $use_element_properties = $self->get_param ('USE_ELEMENT_PROPERTIES');
     my $element_properties     = $use_element_properties
       ? ($args{element_properties} || $self->get_param ('ELEMENT_PROPERTIES'))
@@ -613,7 +614,7 @@ sub parse_newick {
 
     my $progress_bar = $args{progress_bar};
     if (!$progress_bar) {
-        $est_node_count = $string =~ tr/,(//;  #  tr shortcuts to count items matching /(,/
+        $est_node_count = $string =~ tr/,(//;  #  tr shortcuts to count items matching /,(/
         $est_node_count ||= 1;
         #say "Estimated node count is $est_node_count";
         $tree->set_cached_value (ESTIMATED_NODE_COUNT => $est_node_count);