moved sub call for improved efficiency

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index efbccaa731d55f5c341da78a4129ddfae88cb265..98d6fde90e98eb5fb4a04a97159401a3406e7448 100644 (file)
--- 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 (