From dd596509a3582651e14441a4a4935eccfab54acf Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Thu, 15 Jun 2023 06:54:15 -0700
Subject: [PATCH] fix debug message

---
 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 3f3c7746..b02eb6e9 100644
--- a/lib/Perl/Tidy/VerticalAligner.pm
+++ b/lib/Perl/Tidy/VerticalAligner.pm
@@ -1398,7 +1398,8 @@ sub check_match {
                 && ( $ci_new == 0 || $group_line_count > 1 ) )
             {
                 $imax_align = -1;
-                $GoToMsg    = "Not all tokens match: $imax_align != $jlimit\n";
+                $GoToMsg =
+"Rejected ci: ci_prev=$ci_prev ci_new=$ci_new num=$group_line_count\n";
                 $return_value = NO_MATCH;
             }
             elsif ( $imax_align != $jlimit ) {
-- 
2.39.5