From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Tue, 30 Jun 2020 01:25:05 +0000 (-0700)
Subject: fixed error in debug routine
X-Git-Tag: 20200619.02~8
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=164bceec75d2ad5b3dc8b1010adcc0ac97779fc5;p=perltidy.git

fixed error in debug routine
---

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";
     }
 }