From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Tue, 24 Aug 2021 01:18:30 +0000 (-0700)
Subject: moved sub call for improved efficiency
X-Git-Tag: 20210717.02~25
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=b8f774093d4d2406a4e72d25a4076542a7ef2ef8;p=perltidy.git

moved sub call for improved efficiency
---

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index efbccaa7..98d6fde9 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -21245,8 +21245,6 @@ sub make_paren_name {
         my $terminal_block_type = $block_type_to_go[$i_terminal];
         my $is_outdented_line   = 0;
 
-        my $terminal_is_in_list = $self->is_in_list_by_i($i_terminal);
-
         my $type_beg      = $types_to_go[$ibeg];
         my $token_beg     = $tokens_to_go[$ibeg];
         my $K_beg         = $K_to_go[$ibeg];
@@ -21374,6 +21372,8 @@ sub make_paren_name {
               = $self->get_opening_indentation( $ibeg_weld_fix, $ri_first,
                 $ri_last, $rindentation_list, $seqno_qw_closing );
 
+            my $terminal_is_in_list = $self->is_in_list_by_i($i_terminal);
+
             # First set the default behavior:
             if (