fixed error in debug routine

diff --git a/lib/Perl/Tidy/VerticalAligner.pm b/lib/Perl/Tidy/VerticalAligner.pm
index 573ff6f74764bf56cc78eb73ca692e4e91607fe6..086bd300a30ff3b0552201b65e0ecbeb3a7f897b 100644 (file)
--- a/lib/Perl/Tidy/VerticalAligner.pm
+++ b/lib/Perl/Tidy/VerticalAligner.pm
@@ -3348,7 +3348,7 @@ sub prune_alignment_tree {
     return;
 } ## end sub prune_alignment_tree
 
-sub Dump_tree_group {
+sub Dump_tree_groups {
     my ( $rgroup, $msg ) = @_;
     print "$msg\n";
     local $" = ')(';
@@ -3356,6 +3356,7 @@ sub Dump_tree_group {
         my @fix = @{$item};
         foreach (@fix) { $_ = "undef" unless defined $_; }
         $fix[4] = "...";
+        $fix[7] = "...";
         print "(@fix)\n";
     }
 }