From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Tue, 24 Aug 2021 00:29:05 +0000 (-0700)
Subject: change a call is_list_by_K to is_list_by_seqno for speedup
X-Git-Tag: 20210717.02~26
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=129a5b497eb0cbbf291762a36a2acab1d606ec12;p=perltidy.git

change a call is_list_by_K to is_list_by_seqno for speedup
---

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 9adc9f83..efbccaa7 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -19156,6 +19156,7 @@ sub send_lines_to_vertical_aligner {
     my $rLL                  = $self->[_rLL_];
     my $Klimit               = $self->[_Klimit_];
     my $rblock_type_of_seqno = $self->[_rblock_type_of_seqno_];
+    my $ris_list_by_seqno    = $self->[_ris_list_by_seqno_];
 
     my ( $Kbeg_next, $Kend_next ) = @{ $rlines_K->[0] };
     my $type_beg_next  = $rLL->[$Kbeg_next]->[_TYPE_];
@@ -19263,7 +19264,7 @@ sub send_lines_to_vertical_aligner {
         elsif ( !$is_block_comment && $Kend < $Klimit ) {
 
             # Patch for git #51, a bare closing qw paren was not outdented
-            # if the flag '-nodelete-old-newlines is set.
+            # if the flag '-nodelete-old-newlines is set
             # Note that we are just looking ahead for the next nonblank
             # character. We could scan past an arbitrary number of block
             # comments or hanging side comments by calling K_next_code, but it
@@ -19442,8 +19443,10 @@ EOM
 
         # Set flag which tells if this line is contained in a multi-line list
         my $list_seqno;
-        $list_seqno = $self->is_list_by_K($Kbeg)
-          if ( !$is_block_comment );
+        if ( !$is_block_comment ) {
+            my $parent_seqno = $parent_seqno_to_go[$ibeg];
+            $list_seqno = $ris_list_by_seqno->{$parent_seqno};
+        }
 
         # The alignment tokens have been marked with nesting_depths, so we need
         # to pass nesting depths to the vertical aligner. They remain invariant