From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sun, 18 Oct 2020 01:41:02 +0000 (-0700)
Subject: unroll loop in sub K_next_nonblank to improve efficiency
X-Git-Tag: 20201001.03~66
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=b69d6dd7e00bc5482e3858602117c6543c5edfce;p=perltidy.git

unroll loop in sub K_next_nonblank to improve efficiency
---

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index af58bdfb..0e6edec5 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -5373,7 +5373,8 @@ sub K_next_code {
 sub K_next_nonblank {
     my ( $self, $KK, $rLL ) = @_;
 
-    # return the index K of the next nonblank token
+    # return the index K of the next nonblank token, or
+    # return undef if none
     return unless ( defined($KK) && $KK >= 0 );
 
     # The third arg allows this routine to be used on any array.  This is
@@ -5383,6 +5384,14 @@ sub K_next_nonblank {
     $rLL = $self->[_rLL_] unless ( defined($rLL) );
     my $Num  = @{$rLL};
     my $Knnb = $KK + 1;
+    return unless ( $Knnb < $Num );
+    return $Knnb if ( $rLL->[$Knnb]->[_TYPE_] ne 'b' );
+    return unless ( ++$Knnb < $Num );
+    return $Knnb if ( $rLL->[$Knnb]->[_TYPE_] ne 'b' );
+
+    # Backup loop. Very unlikely to get here; it means we have neighboring
+    # blanks in the token stream.
+    $Knnb++;
     while ( $Knnb < $Num ) {
 
         # Safety check, this fault shouldn't happen:  The $rLL array is the