From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Mon, 23 Aug 2021 14:07:25 +0000 (-0700)
Subject: eliminate a call to 'K_previous_code' for improved speed
X-Git-Tag: 20210717.02~29
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=1ecd33b68681b53afb1f33a65a2a7704390ac2c8;p=perltidy.git

eliminate a call to 'K_previous_code' for improved speed
---

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index d13ec398..1d5ffe3c 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -20153,11 +20153,20 @@ sub get_seqno {
 
         my $rLL                  = $self->[_rLL_];
         my $rblock_type_of_seqno = $self->[_rblock_type_of_seqno_];
-        my $K0                   = $K_to_go[0];
-        my $Kprev                = $self->K_previous_code($K0);
+
         my $is_short_block;
-        if ( defined($Kprev) ) {
-            my $seqno = $rLL->[$Kprev]->[_TYPE_SEQUENCE_];
+        if ( $K_to_go[0] > 0 ) {
+            my $Kp = $K_to_go[0] - 1;
+            if ( $Kp > 0 && $rLL->[$Kp]->[_TYPE_] eq 'b' ) {
+                $Kp -= 1;
+            }
+            if ( $Kp > 0 && $rLL->[$Kp]->[_TYPE_] eq '#' ) {
+                $Kp -= 1;
+                if ( $Kp > 0 && $rLL->[$Kp]->[_TYPE_] eq 'b' ) {
+                    $Kp -= 1;
+                }
+            }
+            my $seqno = $rLL->[$Kp]->[_TYPE_SEQUENCE_];
             if ($seqno) {
                 my $block_type = $rblock_type_of_seqno->{$seqno};
                 if ($block_type) {