From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sun, 7 Apr 2024 23:27:22 +0000 (-0700)
Subject: remove unused code found with -duv
X-Git-Tag: 20240202.05~10
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=63b5244f7114cd3bec4e27beb1a0f431c68fe834;p=perltidy.git

remove unused code found with -duv
---

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 86d50522..33896788 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -9987,7 +9987,6 @@ sub interbracket_arrow_check {
     my $rLL = $self->[_rLL_];
     return unless ( defined($rLL) && @{$rLL} );
     my $K_opening_container = $self->[_K_opening_container_];
-    my $K_closing_container = $self->[_K_closing_container_];
 
     my @lno_del;
     my @lno_add;
diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm
index 88f4747b..1511bf1f 100644
--- a/lib/Perl/Tidy/Tokenizer.pm
+++ b/lib/Perl/Tidy/Tokenizer.pm
@@ -5456,8 +5456,6 @@ EOM
         $indent_flag     = 0;
         $peeked_ahead    = 0;
 
-        my $starting_level_in_tokenizer = $level_in_tokenizer;
-
         $self->tokenizer_main_loop();
 
         #-------------------------------------------------