From 405fb435705ba2864f0c44478b90f3c6f0a297e3 Mon Sep 17 00:00:00 2001 From: Steve Hancock Date: Fri, 24 Apr 2020 06:20:27 -0700 Subject: [PATCH] minor optimization by eliminating a sub call --- lib/Perl/Tidy/Formatter.pm | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm index 4521003a..b717e010 100644 --- a/lib/Perl/Tidy/Formatter.pm +++ b/lib/Perl/Tidy/Formatter.pm @@ -7233,9 +7233,6 @@ sub copy_token_as_type { my $guessed_indentation_level = $line_of_tokens->{_guessed_indentation_level}; - my $next_nonblank_token; - my $next_nonblank_token_type; - ###################################### # Handle a block (full-line) comment.. ###################################### @@ -7439,12 +7436,15 @@ sub copy_token_as_type { } # Get next nonblank on this line - my $Knnb = $self->K_next_nonblank($Ktoken_vars); - if ( !defined($Knnb) || $Knnb > $K_last ) { - $next_nonblank_token = ''; - $next_nonblank_token_type = 'b'; - } - else { + my $next_nonblank_token = ''; + my $next_nonblank_token_type = 'b'; + if ( $Ktoken_vars < $K_last ) { + my $Knnb = $Ktoken_vars + 1; + if ( $rLL->[$Knnb]->[_TYPE_] eq 'b' + && $Knnb < $K_last ) + { + $Knnb++; + } $next_nonblank_token = $rLL->[$Knnb]->[_TOKEN_]; $next_nonblank_token_type = $rLL->[$Knnb]->[_TYPE_]; } -- 2.39.5