From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Thu, 15 Jun 2023 13:54:15 +0000 (-0700)
Subject: fix debug message
X-Git-Tag: 20230309.04~9
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=dd596509a3582651e14441a4a4935eccfab54acf;p=perltidy.git

fix debug message
---

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 ) {