From 0bf93aa8ddfc606891f04cdcc4fd289b59a5fc4e Mon Sep 17 00:00:00 2001 From: Steve Hancock Date: Wed, 27 Sep 2023 14:57:11 -0700 Subject: [PATCH] improve accuracy of guessed old indentation level in a .LOG file --- lib/Perl/Tidy/Tokenizer.pm | 18 ++++-------------- 1 file changed, 4 insertions(+), 14 deletions(-) diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm index 572523d6..5fb6e78a 100644 --- a/lib/Perl/Tidy/Tokenizer.pm +++ b/lib/Perl/Tidy/Tokenizer.pm @@ -5263,21 +5263,11 @@ EOM # Trim the line $input_line = substr( $input_line, $spaces ); - # defined 'guessed_indentation_level' if logfile to be saved + # set 'guessed_indentation_level' if logfile to be saved if ( $self->[_save_logfile_] ) { - - # Find actual space count if there are leading tabs - if ( - ord( substr( $untrimmed_input_line, 0, 1 ) ) == - ORD_TAB - && $untrimmed_input_line =~ /^(\t+)/ ) - { - $spaces += length($1) * ( $tabsize - 1 ); - } - - # Calculate a guessed level for nonblank lines to avoid - $line_of_tokens->{_guessed_indentation_level} = - int( $spaces / $rOpts_indent_columns ); + my $guess = $self->guess_old_indentation_level( + $untrimmed_input_line); + $line_of_tokens->{_guessed_indentation_level} = $guess; } } elsif ($spaces) { -- 2.39.5