From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Tue, 12 Apr 2022 17:50:28 +0000 (-0700)
Subject: remove unused var
X-Git-Tag: 20220217.03~6
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=1b7894b0b5aa8876b769936d1d9609ebb02f0120;p=perltidy.git

remove unused var
---

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 23af9e28..1c0f5ca4 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -12128,16 +12128,15 @@ EOM
 
     # past stored nonblank tokens and flags
     my (
-        $K_last_nonblank_code, $K_last_last_nonblank_code,
-        $looking_for_else,     $is_static_block_comment,
-        $batch_CODE_type,      $last_line_had_side_comment,
-        $next_parent_seqno,    $next_slevel,
+        $K_last_nonblank_code,       $looking_for_else,
+        $is_static_block_comment,    $batch_CODE_type,
+        $last_line_had_side_comment, $next_parent_seqno,
+        $next_slevel,
     );
 
     # Called once at the start of a new file
     sub initialize_process_line_of_CODE {
         $K_last_nonblank_code       = undef;
-        $K_last_last_nonblank_code  = undef;
         $looking_for_else           = 0;
         $is_static_block_comment    = 0;
         $batch_CODE_type            = "";
@@ -13244,7 +13243,8 @@ EOM
                 {
                     unless ($rbrace_follower) {
                         $self->end_batch()
-                          unless ($no_internal_newlines);
+                          unless ( $no_internal_newlines
+                            || $max_index_to_go < 0 );
                     }
                 }
 
@@ -13285,15 +13285,17 @@ EOM
                 $self->store_token_to_go( $Ktoken_vars, $rtoken_vars );
 
                 # break after a label if requested
-                if ( $type eq 'J' && $rOpts_break_after_labels == 1 ) {
+                if (   $rOpts_break_after_labels
+                    && $type eq 'J'
+                    && $rOpts_break_after_labels == 1 )
+                {
                     $self->end_batch()
                       unless ($no_internal_newlines);
                 }
             }
 
-            # remember two previous nonblank, non-comment OUTPUT tokens
-            $K_last_last_nonblank_code = $K_last_nonblank_code;
-            $K_last_nonblank_code      = $Ktoken_vars;
+            # remember previous nonblank, non-comment OUTPUT token
+            $K_last_nonblank_code = $Ktoken_vars;
 
         } ## end of loop over all tokens in this line