From 1ecd33b68681b53afb1f33a65a2a7704390ac2c8 Mon Sep 17 00:00:00 2001 From: Steve Hancock Date: Mon, 23 Aug 2021 07:07:25 -0700 Subject: [PATCH] eliminate a call to 'K_previous_code' for improved speed --- lib/Perl/Tidy/Formatter.pm | 17 +++++++++++++---- 1 file changed, 13 insertions(+), 4 deletions(-) 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) { -- 2.39.5