From 164bceec75d2ad5b3dc8b1010adcc0ac97779fc5 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Mon, 29 Jun 2020 18:25:05 -0700
Subject: [PATCH] fixed error in debug routine

---
 lib/Perl/Tidy/VerticalAligner.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/Perl/Tidy/VerticalAligner.pm b/lib/Perl/Tidy/VerticalAligner.pm
index 573ff6f7..086bd300 100644
--- 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";
     }
 }
-- 
2.39.5