Tiny fix to ascii print method.

bioperl · Feb 7, 2011 · 8b6723f · 8b6723f
1 parent 0f37a9d
commit 8b6723f
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Bio/Tree/TreeFunctionsI.pm b/Bio/Tree/TreeFunctionsI.pm
@@ -88,8 +88,8 @@ Internal methods are usually preceded with a _
 package Bio::Tree::TreeFunctionsI;
 use strict;
 
-sub print_tree { print shift->ascii }
-sub ascii { shift->root->ascii }
+sub print_tree { print shift->ascii(@_) }
+sub ascii { shift->root->ascii(@_) }
 
 sub get_lineage_nodes {
     my $self = shift;