From 7103f1eb07717f75524ba91e68ca28a7695ba1fe Mon Sep 17 00:00:00 2001 From: Steve Hancock Date: Wed, 17 Aug 2022 08:50:15 -0700 Subject: [PATCH] remove unused var --- lib/Perl/Tidy/Formatter.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm index c35ac75b..8b974a56 100644 --- a/lib/Perl/Tidy/Formatter.pm +++ b/lib/Perl/Tidy/Formatter.pm @@ -5663,8 +5663,7 @@ sub set_CODE_type { my $ix_line = -1; foreach my $line_of_tokens ( @{$rlines} ) { $ix_line++; - my $input_line_no = $line_of_tokens->{_line_number}; - my $line_type = $line_of_tokens->{_line_type}; + my $line_type = $line_of_tokens->{_line_type}; my $Last_line_had_side_comment = $has_side_comment; if ($has_side_comment) { @@ -5709,6 +5708,7 @@ sub set_CODE_type { ) { $In_format_skipping_section = 0; + my $input_line_no = $line_of_tokens->{_line_number}; write_logfile_entry( "Line $input_line_no: Exiting format-skipping section\n"); } @@ -5745,6 +5745,7 @@ sub set_CODE_type { ) { $In_format_skipping_section = 1; + my $input_line_no = $line_of_tokens->{_line_number}; write_logfile_entry( "Line $input_line_no: Entering format-skipping section\n"); $CODE_type = 'FS'; -- 2.39.5