remove unused code found with -duv

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 86d505228eda21262627b7ed2aeedeff3e8466f4..33896788c4cb88435f422dd449c1cc9d381a4d60 100644 (file)
--- 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 88f4747b96d086c6e67ac2db0a9269de8c494436..1511bf1ff089ba71dee029f44ed2ac7a3c0e95cc 100644 (file)
--- 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();
 
         #-------------------------------------------------