From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Thu, 2 Apr 2020 17:09:02 +0000 (-0700)
Subject: remove unused variable
X-Git-Tag: 20200619~105
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=1bc219e0d040226a89676cf3af00bbb3a3b2dc2b;p=perltidy.git

remove unused variable
---

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 431b919b..284c5744 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -4174,9 +4174,8 @@ sub weld_nested_containers {
 
         if ( $iline_ic == $iline_io ) {
 
-            my $token_oo      = $outer_opening->[_TOKEN_];
-            my $block_type_io = $inner_opening->[_BLOCK_TYPE_];
-            my $token_io      = $inner_opening->[_TOKEN_];
+            my $token_oo = $outer_opening->[_TOKEN_];
+            my $token_io = $inner_opening->[_TOKEN_];
             $do_not_weld ||= $token_oo eq '(' && $token_io ne '(';
         }
 
@@ -7041,9 +7040,7 @@ sub copy_token_as_type {
     return $rnew_token;
 }
 
-
-
-{        # begin print_line_of_tokens
+{    # begin print_line_of_tokens
 
     my $rinput_token_array;    # Current working array
     my $rinput_K_array;        # Future working array
@@ -7731,7 +7728,9 @@ EOM
                 # tokens
                 if ( $block_type eq 'do' ) {
                     $rbrace_follower = \%is_do_follower;
-                    if ( $self->tight_paren_follows($K_to_go[0], $Ktoken_vars) ) {
+                    if ( $self->tight_paren_follows( $K_to_go[0], $Ktoken_vars )
+                      )
+                    {
                         $rbrace_follower = { ')' => 1 };
                     }
                 }