From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Mon, 14 Aug 2023 21:51:43 +0000 (-0700)
Subject: remove unused variable
X-Git-Tag: 20230701.03~19
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=1e67af07657066c8853ca4ce4955e5b16de75488;p=perltidy.git

remove unused variable
---

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index dc9d51b6..f44a2200 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -26379,7 +26379,6 @@ EOM
                     available_spaces => $available_spaces,
                     lp_item_index    => $lp_item_index,
                     align_seqno      => $align_seqno,
-                    stack_depth      => $max_lp_stack,
                     K_begin_line     => $K_begin_line,
                     standard_spaces  => $standard_spaces,
                     K_extra_space    => $K_extra_space,
diff --git a/lib/Perl/Tidy/IndentationItem.pm b/lib/Perl/Tidy/IndentationItem.pm
index 59903ece..3cadcff8 100644
--- a/lib/Perl/Tidy/IndentationItem.pm
+++ b/lib/Perl/Tidy/IndentationItem.pm
@@ -83,7 +83,6 @@ sub new {
     # align_seqno        =>  # if we are aligning with an opening structure,
     #                        # this is its seqno
     # marked             =>  # if visited by corrector logic
-    # stack_depth        =>  # indentation nesting depth
     # K_begin_line   =>  # first token index K of this level
     # arrow_count        =>  # how many =>'s
 
@@ -99,7 +98,6 @@ sub new {
     $self->[_recoverable_spaces_] = 0;
     $self->[_align_seqno_]        = $input_hash{align_seqno};
     $self->[_marked_]             = 0;
-    $self->[_stack_depth_]        = $input_hash{stack_depth};
     $self->[_K_begin_line_]       = $input_hash{K_begin_line};
     $self->[_arrow_count_]        = 0;
     $self->[_standard_spaces_]    = $input_hash{standard_spaces};
@@ -151,10 +149,6 @@ sub tentatively_decrease_available_spaces {
     return $deleted_spaces;
 } ## end sub tentatively_decrease_available_spaces
 
-sub get_stack_depth {
-    return $_[0]->[_stack_depth_];
-}
-
 sub get_spaces {
     return $_[0]->[_spaces_];
 }