From 63b5244f7114cd3bec4e27beb1a0f431c68fe834 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sun, 7 Apr 2024 16:27:22 -0700
Subject: [PATCH] remove unused code found with -duv

---
 lib/Perl/Tidy/Formatter.pm | 1 -
 lib/Perl/Tidy/Tokenizer.pm | 2 --
 2 files changed, 3 deletions(-)

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();
 
         #-------------------------------------------------
-- 
2.39.5