fix debug message

diff --git a/lib/Perl/Tidy/VerticalAligner.pm b/lib/Perl/Tidy/VerticalAligner.pm
index 3f3c77464397519e9d0d43ce09f187d7963c2844..b02eb6e97991b9024980d1f39c73945c125309b7 100644 (file)
--- 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 ) {