From eecd3e26eaad2ca203ac82e6e0c6039c1dacc33e Mon Sep 17 00:00:00 2001 From: Steve Hancock Date: Thu, 1 Feb 2024 17:14:19 -0800 Subject: [PATCH] minor optimization --- lib/Perl/Tidy/Formatter.pm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm index 74140f30..03cb6b7e 100644 --- a/lib/Perl/Tidy/Formatter.pm +++ b/lib/Perl/Tidy/Formatter.pm @@ -20257,16 +20257,15 @@ EOM # gather info needed by sub break_long_lines if ( $type_sequence_to_go[$i] ) { - my $seqno = $type_sequence_to_go[$i]; - my $token = $tokens_to_go[$i]; # remember indexes of any tokens controlling xci # in this batch. This list is needed by sub undo_ci. + my $seqno = $type_sequence_to_go[$i]; if ( $self->[_ris_seqno_controlling_ci_]->{$seqno} ) { push @ix_seqno_controlling_ci, $i; } - if ( $is_opening_sequence_token{$token} ) { + if ( $is_opening_sequence_token{ $tokens_to_go[$i] } ) { if ( $self->[_rbreak_container_]->{$seqno} ) { $self->set_forced_breakpoint($i); } -- 2.39.5