From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Fri, 24 Apr 2020 13:20:27 +0000 (-0700)
Subject: minor optimization by eliminating a sub call
X-Git-Tag: 20200619~73
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=405fb435705ba2864f0c44478b90f3c6f0a297e3;p=perltidy.git

minor optimization by eliminating a sub call
---

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_];
             }