eliminate unused var 'jmax_original_line'

diff --git a/lib/Perl/Tidy/VerticalAligner.pm b/lib/Perl/Tidy/VerticalAligner.pm
index f558fcfbf96ca83504bf1be84888de3a98d31d53..5017297188bcc28ca47a71b27c2c7993b750bcf1 100644 (file)
--- 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 f37de880f66a3b7e57d537adea425bfb91a97bc2..94bd7c2d3bd87c47f19d90c297b404f7e6d0caa2 100644 (file)
--- 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;