From b8f774093d4d2406a4e72d25a4076542a7ef2ef8 Mon Sep 17 00:00:00 2001 From: Steve Hancock Date: Mon, 23 Aug 2021 18:18:30 -0700 Subject: [PATCH] moved sub call for improved efficiency --- lib/Perl/Tidy/Formatter.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 ( -- 2.39.5