From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sun, 1 May 2022 00:44:57 +0000 (-0700)
Subject: remove unused vars
X-Git-Tag: 20220613~45
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=657a11dfad0a70caa96fffc2e4024f5b82d9ac3a;p=perltidy.git

remove unused vars
---

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 62bb761f..cd0dba84 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -5983,7 +5983,6 @@ my %is_wit;
 my %is_sigil;
 my %is_nonlist_keyword;
 my %is_nonlist_type;
-my %is_special_check_type;
 my %is_s_y_m_slash;
 my %is_unexpected_equals;
 
@@ -22756,7 +22755,6 @@ EOM
         my $last_vertical_alignment_BEFORE_index;
         my $vert_last_nonblank_type;
         my $vert_last_nonblank_token;
-        my $vert_last_nonblank_block_type;
 
         foreach my $line ( 0 .. $max_line ) {
 
diff --git a/lib/Perl/Tidy/VerticalAligner.pm b/lib/Perl/Tidy/VerticalAligner.pm
index 2a9e7cf9..3ecfd0f7 100644
--- a/lib/Perl/Tidy/VerticalAligner.pm
+++ b/lib/Perl/Tidy/VerticalAligner.pm
@@ -2583,7 +2583,6 @@ EOM
 
         my @equals_info;
         my @line_info;
-        my %is_good_tok;
 
         # create a hash of tokens for each line
         my $rline_hashes = [];
@@ -3458,7 +3457,6 @@ sub get_line_token_info {
         my ( $lev_min, $lev_max );
         my $token_pattern_max = "";
         my %saw_level;
-        my @token_info;
         my $is_monotonic = 1;
 
         # find the index of the last token before the side comment
@@ -3855,9 +3853,10 @@ sub prune_alignment_tree {
     #  $level_keep is the minimum level to keep
     my @delete_list;
 
+    # Not currently used:
     #  Groups with ending comma lists and their range of sizes:
     #  $ragged_comma_group{$id} = [ imax_group_min, imax_group_max ]
-    my %ragged_comma_group;
+    ## my %ragged_comma_group;
 
     # Define a threshold line count for forcing a break
     my $nlines_break = 3;