From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Fri, 30 Oct 2020 21:30:33 +0000 (-0700)
Subject: eliminate unused var 'jmax_original_line'
X-Git-Tag: 20201001.03~18
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=3a5e24d9a8cc872b026cba23dafb0c731134b14d;p=perltidy.git

eliminate unused var 'jmax_original_line'
---

diff --git a/lib/Perl/Tidy/VerticalAligner.pm b/lib/Perl/Tidy/VerticalAligner.pm
index f558fcfb..50172971 100644
--- a/lib/Perl/Tidy/VerticalAligner.pm
+++ b/lib/Perl/Tidy/VerticalAligner.pm
@@ -659,7 +659,6 @@ sub valign_input {
     # --------------------------------------------------------------------
     my $new_line = Perl::Tidy::VerticalAligner::Line->new(
         jmax                      => $jmax,
-        jmax_original_line        => $jmax,
         rtokens                   => $rtokens,
         rfields                   => $rfields,
         rpatterns                 => $rpatterns,
diff --git a/lib/Perl/Tidy/VerticalAligner/Line.pm b/lib/Perl/Tidy/VerticalAligner/Line.pm
index f37de880..94bd7c2d 100644
--- a/lib/Perl/Tidy/VerticalAligner/Line.pm
+++ b/lib/Perl/Tidy/VerticalAligner/Line.pm
@@ -14,7 +14,6 @@ BEGIN {
     my $i = 0;
     use constant {
         _jmax_                      => $i++,
-        _jmax_original_line_        => $i++,
         _rtokens_                   => $i++,
         _rfields_                   => $i++,
         _rfield_lengths_            => $i++,
@@ -66,7 +65,6 @@ EOM
         my $self = bless [], $class;
 
         $self->[_jmax_]                      = $arg{jmax};
-        $self->[_jmax_original_line_]        = $arg{jmax_original_line};
         $self->[_rtokens_]                   = $arg{rtokens};
         $self->[_rfields_]                   = $arg{rfields};
         $self->[_rfield_lengths_]            = $arg{rfield_lengths};
@@ -91,9 +89,6 @@ EOM
 
     sub get_jmax { return $_[0]->[_jmax_] }
 
-    sub get_jmax_original_line {
-        return $_[0]->[_jmax_original_line_];
-    }
     sub get_rtokens        { return $_[0]->[_rtokens_] }
     sub get_rfields        { return $_[0]->[_rfields_] }
     sub get_rfield_lengths { return $_[0]->[_rfield_lengths_] }
@@ -226,12 +221,6 @@ EOM
 
     sub set_jmax { my ( $self, $val ) = @_; $self->[_jmax_] = $val; return }
 
-    sub set_jmax_original_line {
-        my ( $self, $val ) = @_;
-        $self->[_jmax_original_line_] = $val;
-        return;
-    }
-
     sub set_rtokens {
         my ( $self, $val ) = @_;
         $self->[_rtokens_] = $val;