From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Thu, 25 Aug 2022 18:35:50 +0000 (-0700)
Subject: remove unused code
X-Git-Tag: 20220613.05~26
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=f90360eab34198a53f341402c13e76ccaf98ee29;p=perltidy.git

remove unused code
---

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index c9d62b81..d3fc3ed7 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -8281,19 +8281,6 @@ sub weld_cuddled_blocks {
     my $K_opening_container = $self->[_K_opening_container_];
     my $K_closing_container = $self->[_K_closing_container_];
 
-    my $length_to_opening_seqno = sub {
-        my ($seqno) = @_;
-        my $KK      = $K_opening_container->{$seqno};
-        my $lentot  = $KK <= 0 ? 0 : $rLL->[ $KK - 1 ]->[_CUMULATIVE_LENGTH_];
-        return $lentot;
-    };
-    my $length_to_closing_seqno = sub {
-        my ($seqno) = @_;
-        my $KK      = $K_closing_container->{$seqno};
-        my $lentot  = $KK <= 0 ? 0 : $rLL->[ $KK - 1 ]->[_CUMULATIVE_LENGTH_];
-        return $lentot;
-    };
-
     my $is_broken_block = sub {
 
         # a block is broken if the input line numbers of the braces differ
@@ -9050,22 +9037,6 @@ sub weld_nested_containers {
     # It may be necessary to include '[' and '{' here in the future.
     my $one_line_tol = $opening_vertical_tightness{'('} ? 1 : 0;
 
-    my $length_to_opening_seqno = sub {
-        my ($seqno) = @_;
-        my $KK      = $K_opening_container->{$seqno};
-        my $lentot  = defined($KK)
-          && $KK > 0 ? $rLL->[ $KK - 1 ]->[_CUMULATIVE_LENGTH_] : 0;
-        return $lentot;
-    };
-
-    my $length_to_closing_seqno = sub {
-        my ($seqno) = @_;
-        my $KK      = $K_closing_container->{$seqno};
-        my $lentot  = defined($KK)
-          && $KK > 0 ? $rLL->[ $KK - 1 ]->[_CUMULATIVE_LENGTH_] : 0;
-        return $lentot;
-    };
-
     # Abbreviations:
     #  _oo=outer opening, i.e. first of  { {
     #  _io=inner opening, i.e. second of { {