From a5e4b21a12cd2a72a4f08d261e36bbf6c865819d Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Tue, 28 Feb 2023 08:05:21 -0800
Subject: [PATCH] fix incorrect log message, issue c195

---
 lib/Perl/Tidy/Formatter.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 94e7bf92..f828753a 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -16278,6 +16278,10 @@ sub compare_indentation_levels {
 
     my $rLL = $self->[_rLL_];
 
+    # ignore a line with a leading blank token - issue c195
+    my $type = $rLL->[$K_first]->[_TYPE_];
+    return if ( $type eq 'b' );
+
     my $structural_indentation_level = $self->[_radjusted_levels_]->[$K_first];
 
     # record max structural depth for log file
@@ -16290,7 +16294,7 @@ sub compare_indentation_levels {
     my $is_closing_block =
          $type_sequence
       && $self->[_rblock_type_of_seqno_]->{$type_sequence}
-      && $rLL->[$K_first]->[_TYPE_] eq '}';
+      && $type eq '}';
 
     if ( $guessed_indentation_level ne $structural_indentation_level ) {
         $self->[_last_tabbing_disagreement_] = $line_number;
-- 
2.39.5