remove unused variable

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index dc9d51b6f98672ec7714df86b925194397b16521..f44a2200c14f625b9922fff6ad89f81040c56caf 100644 (file)
--- 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 59903ece440c18adce5abf451186402a94352ed4..3cadcff8ec3b2c74878c317e5c668e3003e173fc 100644 (file)
--- 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_];
 }